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INTRODUCTION 

The  VIC  20  is  an  exciting  computer,  designed  to  ensure  you  can  easily  make  the  best 
use  of  the  computer's  colour  and  sound  potential. 

This  book  has  been  great  fun  to  write,  because  the  VIC  'co-operates'  so  well  with  the 
games  programmer.  The  BASIC  is  fast  and  unambiguous,  the  range  of  noises  and 
colour  effects  is  practically  infinite,  and  -  despite  the  slight  limitations  of  the  large 
graphics  -  allows  some  splendid  screen  displays  to  be  created,  especially  with  the 
POKE  command. 

Although  I  hope  you'll  enter  these  programs  as  we've  listed  them  here,  and  enjoy 
playing  them,  the  real  value  of  a  book  like  this  lies  in  what  you  do  with  (a)  the 
programs  to  adapt  them  to  make  them  your  own;  and  (b)  the  ideas  you  get  from 
them  to  use  in  new  programs  of  your  own. 

I've  tried  to  chose  a  wide  range  of  programs,  to  show  how  flexible  the  VIC  can  be, 
and  to  give  you  some  ideas  of  the  kind  of  programs  you  can  write,  and  the  easiest 
way  to  achieve  the  effects  you  desire. 

The  printer  reproduces  all  the  VIC  graphics,  and  to  make  the  listings  as  clear  as 
possible,  we've  printed  them  just  as  they  rolled  off  the  printer.  Despite  this,  some  of 
the  colour  commands  may  be  a  little  hard  to  fathom  out.  Here's  a  list  of  the  colour 
commands,  along  with  REVERSE  ON  and  REVERSE  OFF,  as  reproduced  by  the 
printer.  This  should  help  in  reading  the  listings. 
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REM 

M  g  II 

BLACK 

15 

REM 

20 

REM 

"  4" 

WHITE 

25 

REM 

30 

REM 

n  ngit 

RED 

35 

REM 

49 

REM 

it  j^n 

CVRN 

45 

REM 

50 

REM 

"t" 

PURPLE 

60 

REM 

"B" 

GREEN 

65 

REM 

70 

REM 

n  FBI; 

<a 

BLUE 

75 

REM 

80 

REM 

YELLOW 

85 

REM 

90 

REM 

"W 

REVERSE  ON 

95 

REM 

100  REM  “H"  REVERSE  OFF 
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As  well  as  using  the  commands  as  listed,  several  programs  have  REM  statements 
explaining  which  colours  have  been  used.  If  you  can't  work  out  what  a  particular 
colour  command  is,  use  anything  you  like.  And  by  all  means,  changethe  colours  to 
suit  yourself  once  you've  seen  what  a  particular  program  is  meant  to  be  doing. 

The  bookfollows  a  straightforward  plan.  The  program  is  introduced,  and  with  some 
of  the  programs,  information  on  how  it  was  written-and  how  it  achieves  the  effects 
it  does  -  is  included. 

Well,  I  guess  you're  anxious  to  get  down  to  the  serious  business  of  games-playing 
right  now,  so  I'll  end  this  introduction  and  let  you  get  on  with  it.  J  ust  before  I  do,  I'd 
like  to  thank  the  friendly  team  at  Adda  Home  Computers  Ltd.,  1 54  Victoria  Road, 
London,  W3,  who  have  helped  me  greatly. 

Good  games-playing. 

TIM  HARTNELL 
London,  November,  1982 


ZOMBIE  ISLAND 

Your  plane  has  crashed  on  a  remote  island,  where  the  only  topological  features  are 
round  green  swamps,  and  the  only  inhabitants  mindless  zombies,  shown  on  the 
display  as  letter  Z's.  The  zombies  are  out  to  get  you,  a  black  'clubs'  symbol.  You  can 
move  anywhere  on  the  island,  except  through  a  swamp.  The  zombies  are  pretty 
stupid.  They  can  see  you,  but  not  the  swamps,  and  -  as  is  well  known  among 
zombiologists  -  zombies  drown  instantly  in  swamps.  You  survive  only  if  you 
manage  to  lure  the  zombies  into  the  swamps. 

You  control  your  movements  on  the  island  with  four  key  -  "A"  -  up,  "Z"  —  down, 
-  left  and  -  right.  Although  you  may  find  it  a  little  strange  using  these  keys  at 
first,  you'll  soon  find  you  are  automatically  pressing  the  right  key  forthe  direction  in 
which  you  want  to  move.  It  will  help  you,  in  the  early  stages  of  using  these  keys,  to 
note  that  the  'greater  than'  and  'less  than'  symbols  point  in  the  direction  you  will 
move  if  you  press  that  key.  These  four  keys  are  used  in  a  numberof  programs  in  this 
book,  and  you  may  well  want  to  use  them  in  your  own  moving  graphics  games. 

The  number  of  zombies  on  the  island  is  determined  randomly  (line  2055)  and 
neither  they,  nor  you,  can  move  outside  the  area  bounded  in  purple  on  the  screen. 
The  number  of  drowned  zombies  is  shown  near  the  bottom  of  the  screen,  as  is  the 
number  left  alive.  The  zombies  make  quaint  noises  as  they  move  about,  and  drown 
with  a  dramatic  aural  flourish.  The  zombies  move  in  a  reasonably  intelligent  way, 
but  have  some  preprogrammed  stupidity  to  give  you  a  chance  to  survive.  The  fewer 
zombies  there  are  left,  the  faster  they  move,  so  the  last  one  alive  can  give  you  a  run 
for  your  money.  Each  round  of  the  game  ends  with  an  echo  of  the  noise  your  plane 
made  when  crashing.  After  a  short  pause,  a  new  game  will  start  automatically. 


10  REM  20MB IE  I SLR HD 
20  GQSUB2000 

36  GETS*  I  FS*=  "  "  THENS*=T* 

40  RE=R : BE=B 

50  IFS*="fi"THEHn=R-22: B*B-22 
60  I  FS*= " Z 11  THEHR=R+22  :  B=B+22 
70  I  FS*= 11 .  "  THENFNR+ 1 :  B=B+ 1 
30  I  FS*= 11 ,  "  THENR=R- 1  :  B«B- 1 
90  W®PEEK<fl> 

100  IFW“l£7THENfi«RE : B=BE 
110  IFM=26THENR=flE : E=BE 
120  IFW==81  THENfi=RE :  B«BE 
130  POKEfiE, 1  POKEBE, 1 
140  POKER, S3 ■•PGKEB..0 
150  T*=S* 

160  REM  CONTROL  ZOMBIES 
17©  FGRR=1 TQV 
180  U=0 
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185  I FPEEK  <  GK  FO  >  a8 1 THEN260 

190  I FQ  <  R  ) >RTHENU=- 1  :  I FRND < 0» .  5THENU®-22 

200  I FQ  <  R  )  <FITHEHU“  1 : 1  FRND  *  0  >  > .  5THENU=22 

210  P0KEGKR.J.46  P0KEP<R>,1 

220  G  C  R  >  =Q  <  R  >  +U :  P  <.  R  ?  =P  <  R >  +U 

225  I FPEEK  C Q  < R >  > =S8THEN400 

230  I  FPEEK.  03  0?}  J-81THENTOTC+1  •  FORI“1TO20  :  P0KE36875, 255-3*1  =  NEXT  :  P0KE36875*  0  :  GOT 
0260 

235  1  FPEEK  •'  G  C  R  ?  >  « 1 27THENQ <  R  5  =Q  <  R ;■  -U  =  P  <  R  >  *P  <  R > -U 

240  POKEQ CR>  *  26 : POKEP < R 3 , 2 

260  IFTOVTHEN310 

270  PGKE36S74 , 250-RND  C  0  >  #  15 

290  NEXT 

295  pr  i  nt  "  mmmmmmmmmm fill v  ”  tc  -  out  of  v 

300  GOTO30 

310  pr  i  nt  -mmmmmmmmimmiHLL'T’ "  tc  m  out  of-v 

312  P0KE36878.-  0 

315  PR  I  NT  "  STSTt'OIJ  '  VE  SURV I VED !  !  " 

320  G0TO467 

400  POKEQ C R > , 26  =  POKEP < R > , 2 
402  PGKE36874* 0 

405  pr  i  nt  »  mmmmmmmmmrnLiy "  tc  "  out  of"v 

406  PRINT" SWTHOT'S  THE  END!" 

4S7  FORV=1TO100 

408  PGKE36877 .<  130+RND<0?*100 

420  NEXT 

430  P0KE36877  .*  0 

440  FGRV=1TO3000  :  NEXT 

450  RUN 

2000  REM  INITIALISE 
2005  PR I NT "3"  V=0 
2010  FQRJ=1TQ15 

2028  POKE? 679+ J , 127 : P0KE3S399+ J , 4 
2030  P0KE7987+-J  ..12?:  POKE38707+ J ,  4 
2040  NEXT 

2056  FORJ«7680TO7388STEP22 : POKE J , 1 27 : POKE30720+ J , 4 

205 4  Z=  I  NT  <  RND  <  0  :■  *  11  >  +3  ■  Z 1 = I  NT  <  RHD  <  0  >  *  1 1  >  +3 

2055  I F J>?680RND J<798BTHENP0KE J+Z ,  8 1  =  POKE J+Z+30730 .■  3 

2056  T=0 = I F J>7680flND J<7988ftNDRNB C 0 ) > . 6THENT- 1 

£057  1 FT= 1 THEN V~ V+ 1 : Q< V)<r+Zl : P<V>=J+Z1 +30720 : POKEQ CV> , 26 : POKEP < V> , 2 
2060  POKE.J+15,  127  =  POKE30735+J..  4 
2070  NEXT 

2080  9=7726 : 6=38446 : REM  START  POSITION  PLOVER 
2090  POKEfl , 88 : POKED , @ 

21C10  T$=" .  " 

2120  P0KE36878, 15 
2500  RETURN 
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LODESTAR/3-D 

MAZE 

You  are  searching  within  a  mazeforthe  precious  lodestar.  At  each  point  inthe  maze, 
you'll  be  told  which  directions  from  your  current  position  are  open.  The  display 
takes  the  form: 

MOVE  NUMBER  1 
NORTH:  OPEN 
SOUTH:  WALL 
EAST:  OPEN 
WEST:  WALL 

LODESTAR  INDICATOR  READS  1200 
DIRECTION? 

North  South  East  West  Help 

You  enterthe  initial  letter  of  the  move  you  wish  to  make.  H  (for  help)  gets  you  a  view 
of  the  maze  from  above,  with  your  position  shown  as  a  blue  asterisk.  But  although 
you  can  see  where  you  are  within  the  maze,  the  lodestar  is  not  marked. 

You  will  be  pleased  to  see  how  quickly  you  start  really  visualizing  the  maze  in  three 
dimensions,  and  howyou  will  be  moving  confidently  through  it.  The  maze  changes 
from  game  to  game,  and  the  lodestar  can  be  in  one  of  three  positions  within  it.  Your 
score  at  the  end  depends  on  how  few  moves  it  took  you  to  find  the  lodestar.  Asking 
for  help  costs  you  a  penalty  of  15  moves!  As  you  become  familiar  with  the  game, 
you'll  learn  howto  make  the  best  use  of  the  feedback  from  the  Lodestar  Indicator. 

If  you  have  extra  memory,  and  you  feel  particularly  ambitious,  you  could  add  a  '3-D 
display',  to  showthe  view  ahead  ofyou  after  each  move.  Lines  550  to  580  determine 
which  of  the  three  positions  will  be  used  for  the  lodestar  in  the  game. 


10  REM  L0DESTRR73-D  MRZE 
20  GO SUB 530 
30  GOSUB370 
40  M=M+1 

5Q  PRIHT"n"JTRB<5>J "MOVE  NUMBER "M 
70  PR I NT NORTH:  " ; 

SG  IFFKD+1..  E>==3  THEHPR I  NT"  30PENS" 

90  IFFKB+1 ..  E>=X  THEN  PR  I HT  ”  HfiLL  ” 

10G  PR  I NT”  W330UTH :  "J 
110  IF  Fl<  D~1,E)«S  THEHPR  I  NT”  CTiPENB" 
120  IF  H<Ii-l,E>=X  THEN  PRINT  "NOLL” 
130  PRINT"W5ERST: 

140  IFFKIL  E+l )~8  THEN  PRINT" SOPENB" 
150  IF  fKD..E+n=X  THEN  PRINT  "UflLL" 
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160  PR  I  NT  "MS-JEST: 

170  IFR<D,E-1>=8  THEN  PRINT"  SCiPEHH" 

180  IF  fl<D,E-l>*K  THEN  PRINT "WALL" 

190  PRIHT’LULOBESTRR  INDICATOR 11  : PRINT  TAB  CO > "READS" 100#CABSCZ-D>+ABS<Y-E> >+V~E 

210  PRINT"Mf#BH2rffiIRECTIQN?5" 

211  PR  I  NT "  MSHHORTH  S3  SOUTH  5EHR3T  tfWKST  a-«LPM 

215  GETA$: IFR$=” "THEN215 

220  IFA$="H"RNBfi<D+ 1  ,  E)*=XTHEN  215 
230  I F  A$a  •*  3  "  RNDfi  t  D  - 1 ,  E  >  =XTHEN  215 
240  lFfl$="E,,ANBRCD,E+l>«XTHEN215 
250  I F  A$= " W " RHDR <  D ,  E- 1 }  — XTHEN2 1 5 
260  IF  flf-,,H"  THEN  GQSUB370 
270  IFfl$="N"  THEN  D=D+1 
238  IF  R$="S"  THEN  D=D-1 

290  IF  F1*=,,E"  THEN  E=E+1 

308  IF  R$="ir  THEN  E«E~1 

310  IF  2~D  FiHD  V=E  THEN  340 

330  GOTO  40 

340  PRINT" VOU  FOUND  IT  IN” 

350  PRINTTRB<5> J " S"M"H  MOVES ! !! " : FORJ-1TO1O0 : NEXT! : GOTO340 
370  REM  HELP 

400  pRiHT"r«iiiiar»-joRTHBh :  print 

410  F0RB-15T01  STEP-1 :F0RC=1T01S 
420  F0RC-1T015 

430  ifr>:b,c>=x  THEN  PRINT"  MBS"; 

435  IFB=D  AND  C=E  THEN  PRINT  "S*” J = GOTO440 

436  IF  RCE,  C)~S  THEN  PRINT"!B+“I 
440  NEXT : PRINT : NEXT 

470  PR  I  NT"  EHiiiilSUSQUTHH"  :  PRINT 
460  M»M+15 

490  FORJ-1TO2000 : NEXTJ 
500  PR I NT "3"  :RCDi E>“S 
520  RETURN 
530  DIMR<15,15> 

550  B»INT<RMDCn*3>+l 
560  Z=*  1 4  ;  V=  14 
570  IF  B=2  THEN  V=2 
530  IFB=3  THEN  2=2 
590  X=1 : 8=2 

610  FORB^ITGIS : F0RC-1T015 

630  A  (  B ,  C  ?  —X  :  I P  RND 1 )  > .  9THENR <  B ,  C  >  =3 

640  IF  C<20RC> 1 40RBC20RB> 1 4  THEHRCB, C>=X 

650  NEXT: NEXT 

670  D=2 : E=2 

690  F0RF*1TQ68 

700  READS : RERDC 

710  fl<B,C>=S 

720  NEXT 

736  M=- 15 :  PGKE36879,  25 
740  RETURN 

750  IiflTfi  2.*  2,2. 3,  2, 4, 2/5.2, 6, 2.-7 
760  DRTR3, ? , 4 , 7 , 5, 7, 5, 6, 5, 5, 5, 4 , 5 , 3 ,6,3 
770  DRTR7, 3, ?, 4, 7 ,5, 7, 6, 7, 7, 7, 3, 7, 9, 9. .0 
780  DflTR9,9, 10, 8, 10,7, 10,6, 10,5, 10, 4,8,8 
790  BRTR10, 3, 11,3, 12,3,  13,3, 14,3, 14,2,  7,  10 
S00  BRTR6, 10,5, 10,4, 10,3, 10,2, 10,2, 11,2, 12 
810  DRTR2, 13,2, 14,6, 11,6, 12,6, 13,6, 14,7, 12 
320  DRTR14, 12,8, 12,8, 14,9, 12,9, 13,9, 14, 10, 12 
830  DRTR11 ,9, 11 , 10,11,11,11, 12, 12,9, 13,9, 13, 10 
840  DRTR13, 11, 13, 12, 13, 13, 13, 14, 14,  14 
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ROULETTE 

Roulette  is  one  of  the  classic  gambling  games,  and  with  this  program  you're  ready 
to  try  out  your  'system'  for  beating  the  wheel.  .  .  without  losing  your  shirt. 


The  first  program  allows  full  casino  betting,  playing  by  the  European  rules,  which 
have  a  wheel  with  the  numbers  one  to  36,  plus  zero.  The  American  wheel  has  the 
numbers  one  to  36,  plus  zero  and  double  zero.  This  is  catered  for  by  the  second 
program. 
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The  roulette  table  has  the  numbers  one  to  36,  some  in  black  and  some  in  red  on  it, 
plus  the  zero  (and,  in  the  case  of  the  American  system,  the  double  zero).  You  can 
place  bets  on  a  wide  variety  of  number  combinations.  Once  the  bets  are  placed,  a 
wheel  is  spun,  and  the  croupier  throws  a  ball  into  the  wheel,  in  the  opposite 
direction  to  the  spin.  The  ball  ends  up  resting  on  one  of  the  numbers,  and  this 
determines  your  fate. 

When  you  run  the  program,  you'll  seethe  words  YOU  HAVE  100  CHI  PS.  After  a  short 
pause,  the  words  MESSIEURS,  FAITES  VOS  JEUX  (Gentlemen,  place  your  bets) 
appear.  You  then  enter  a  letter  of  the  alphabet  from  A  to  P  (or  Q  to  quit  the  game) 
which  indicates  which  type  of  bet  you  wish  to  place.  Here  is  the  key  to  enter  your 
bets: 

A  -  A  single  number 

B-  Two  adjoining  numbers 

C  -  Three  numbers  in  adjoining  columns 

D  -  Six  numbers  in  adjoining  columns 

E  -  Four  numbers  in  a  square 

F  -  Numbers  one  to  12  (known  as  the  First  Twelve) 

G  -  Numbers  13  to  24  (known  as  the  Second  Twelve) 

H  -  Numbers  25  to  36  (the  Third  Twelve) 

I-  Numbers  one  to  18  (Low) 

J  -  Numbers  19  to  36  (High) 

K  -  12  numbers  in  a  horizontal  row 
L-  Two  adjacent  horizontal  columns 

M  -  Any  red  number  (see  below  for  a  list  of  red  and  black  numbers) 

N  -  Any  black  number 
0  -  Any  even  number 
P-  Any  odd  number 
Q  -  to  quit  the  game 

The  red  numbers  are:  1,  3,  5,  7,  12,  14,  16,  18,  19,  21,  23,  25,  27,  30,  32,  34,  36 

The  black  numbers  are:  2,  4,  6,  8,  10, 11,  13,  15, 17,  20,  22,  24,  26,  28,  29,  31, 33,  35 

You  will  not  be  allowed  to  bet  more  chips  than  you  have,  and  you  may  withdraw 
from  the  wheel  at  anytime.  The  bank  only  holds  1000  chips,  so  if  you  get  a  total  of 
1100  in  hand  (the  bank's  1000,  plus  your  original  100  chips),  the  game  must  end, 
when  you'll  be  the  one  who  broke  the  bank  at  Monte  Carlo. 

Once  you've  spent  a  bit  of  time  gambling  with  this  program,  you  may  wish  to  try 
some  of  the  'systems'  which  evolved  for  roulette.  One  of  the  most  popular  is  the 
Martingale  in  which  you  stick  to  the  same  number  or  group  of  numbers,  doubling 
the  bet  each  time  you  lose,  so  you  bet  one  chip  the  first  spin,  two  the  next  (if  you  lost 
on  the  first),  four  the  next,  and  so  on.  This  ensures,  in  theory,  that  any  win  should 
wipe  out  all  previous  losses,  and  give  you  a  profit  as  well.  Most  systems  are 
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systematic  only  in  that  they  help  you  lose  your  money  in  record  time.  However,  it  is 
far  betterto  try  out  a  system  with  the  program,  than  with  an  actual  wheel.  Sir  Hiram 
Maxim,  the  inventor  of  the  first  automatic  repeating  gun  (hardly  an  achievement 
likely  to  make  him  an  expert  on  roulette  wheels),  is  said  to  have  said  that  "a  bad 
system  is  better  than  none  at  all".  Balance  this  against  the  advice  of  William 
Makepeace  Thackeray:  "You  have  not  played  yet?  Do  not  do  so;  above  all,  avoid  a 
martingale  if  you  do". 

1  REM  ROULETTE  -  EUROPERH 
3  PQKE36879,26 
5  PR I NT" n":  GOT 020 
10  FQRK-1TQ800 = NEXT = PRIHT : RETURN 
20  Ei  I  ME  <  24  >  :  OH- 1 00 
40  PRINT" VOU  HRVE"GH" CHIPS" 

50  GOSUB 10 

60  PR I NT "MESSIEURS,  F RITES  VOS  JEUX" 

70  GETRt :  IFfl*»,,"THEH70 

72  R»nsC<fl#>-64i  I FR< 3. 0Rfl>  17THEH70 

75  I FR= 17 THEN 4000 

80  F 0 R Q« 1 T024 : B  < Q  > «-99 : NEXT 

116  INPUT  "WOW  MR HV  CHIPS" H : IFN>CHTHEN 1 10 

120  CH*CH-N 

1 39  I FR~ 1 THENGOSUE2600 

131  I FR=2T HEN GOSH B2640 

1 32  I FR-3THENG0SUB2680 

133  I  Ffl-"4THENOOSUE2720 

1 34  I F  R  ~  5  T  H  E  N  G  Q  3  U  B 2 7 6 Q 

1 35  I FR-6THEN OOSUB280 S 

136  I FR-7THEHG0SUB2S4 0 

1 37  I Ffi*8THENGOSUB2SS0 

1 38  I FR«9THENGOSUB2920 

1 39  I FR“ 1 0 THE N 0 0 SUB 2960 

140  IFR=“  1 1THE HG 0 SUB 30 G0 

141  I FR= 1 2THEMGDSUE3040 

1 42  I FA- 1 3THEHGOSUB3O80 

143  I FR~ 1 4THENG08UB31 20 

1 44  I Ffl-=  1 5THEHGOSUB3160 

145  I F R= 1 6THENGOSUB3200 
156  GOSUB10 

1 60  PR I NT " WHE EL  I S  SP INN I NO " : GOSUB 1 0 
170  GOSUB 10 : PRINT "IT1 

180  FORB=  1T075  :  C«  INTC RND<0>*37>  ■  PRINT":MlflW,,C  :  FORT=1T03*B 

185  NEXT  =  GOSUB 50 00  =  NEXT 

190  GOSUB 1 0 ; PR I NT " BRLL  HRS  ENDED  RT"C 

240  V=0 : E= 1 

250  I FB< “CTHENV- 1 • GOTO270 
260  I FE<24THENE=E+ 1 : GOTO250 
270  IFV*0THEN370 
290  M I =0D#N : CH-CH+W I 

310  PRIHT 11  CONGRATULATIONS ,  VOU  HRVE  NON" HI  "CHIPS" 

33®  GO SUB 10 
350  GOSUB400 
360  GOTO 40 

370  PRINT "SO  VOU  LOSE" : GOTO330 

400  I F CH< 1 T HENPR I NT " VOU  HRVE  RUN  OUT  OF  CHIPS" : END 
410  I FCH> 1 1 0OTHEHPR I NT " VOU  HAVE  BROKEN  THE  BANK ! " ' END 
420  RETURN 

2600  INPUT  "WHICH  HUMBER"  1  B  :  B<  1  >-B  :  0D«35  =  RETURN 
2640  INPUT  "WHICH  TWO  NUMBERS  "  ;  B  <  1  > ,  B 1 2  ’>  '•  OB- 1 7 :  RETURN 
2680  PRINT"  WHICH  NUMBER"  :  INPUT"  IN  LEFT  COLUMN"  D 
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2690  FORE=0TO2 : B C E+ 1 >  =D+E : NEXT  =  OD* 1 1 : RETURN 

2720  I HPUT " WF I RST  NUMBER  OF  SIX"  !<  B  :  FGRE«0TO5  :  E t  E+ 1  >=IH-E  •  NEXT  :  0B*5  :  RETURN 
2760  INPUT" 1ST  NUMBER  IN  SQUARE ; B : PORE-0T03 : B<E+1 >®B+E : IFE*2THEND®D+ 1 
2770  NEXT : 0D=8 : RETURN 

£800  F0RE=1T01£ : B<E)«E : NEXT : OD-2 : RETURN 
2840  FORE®  1  TO  1 2  :  B  CE >»E  + 1  £  :  NEXT  •  QD®2  •'  RETURN 
2880  F0RE*1T012  =  B<E>®E+24 : NEXT : OB® 2 : RETURN 
2920  FORE®  1  TO  18  :  B':E>=E  •  NEXT  :  0B®1  •  RETURN 
2960  FQRE=1T08 :  B<E>=E+18 :  NEXT :  OB«l  =  RETURN 
3000  PR  I  NT " KLOW  HUMBER  AT  ENB"  ;  INPUT"  OF  LINE"  B 
36 1 0  FORE-0TO 1 1  =  B  <E+ 1  }  ®3#E+D  •  NEXT  ■  OB®  2  •  RETURN 

3940  INPUT "BLOW  HO.  1ST  COLUMN" B1  :  INPUT "BLOW  NO.  2ND  COLUMN" BZ  ■  IFABS<D1-D2»1  T 
HEH3040 

3050  FORE®0TO1 1 =  B<E+i >=3#E+B1 : B<E+135*3#E+B2 : NEXT : 0B= . 5 = RETURN 
3O80  RESTORE 

3090  FORE®! TO 18 ■ READB<E> : NEXT  =  0B®1 : RETURN 

3 1 20  RESTORE : FORE® 1 TO 18 : REAB2 : NEXT : FORE® 1 TO  1 8 : READS < E > : NEXT : OB® 1 : RETURN 

3160  F0RE*2T036STEP2 : B<E/2>«E = NEXT : 0B*1 : RETURN 

3208  F0RE«1T033STEP2 : B< <E+1 >/2>=E t NEXT : OB® 1 ; RETURN 

3210  BRTA1 ,3, 5, 7, 9, 12, 14, 16, 18, 19, 2 1 , £3, 25, 27, 30, 32, 34, 36 

3220  D  AT  A2 ,  4 , 6 , 8 , 1 0 ,  1 1 ,  1 3 , 1 5 , 1 7 ,  20 ,  22 ,  24 , 26 , 28 , 29 ,31, 33 , 35 

4080  PRINT"MWiri'OU  ARE  WITHDRAWING  FROM  THE  GAME  WITH  “CH"CHIPS" 

4010  END 

5000  POKE 3 68 7 8 5 

50 1 0  POKES 687? ..  1 30+B :  P0KE3SS75 .  1 30+B 
5020  POKES 6 87 8, 9 ■ P0KE3687?, 0 : P0KE36875, 0 
5830  RETURN 


1  REM  ROULETTE  -  AMERICAN 
3  PDKE3SS79, 26 
5  PR  I  NT  "Zl"  •  GOTO20 
1 0  FORK® 1 T 0300 : NEXT : PR I NT  =  RETURN 
20  D I  MB  <.  24  >  :  CH38 1 00 
40  PRINT"VOU  HFlVE"CH" CHIPS" 

50  GOSUBIO 

60  PR  I  NT  "MESSIEURS,  FflITES  VOS  JEUX" 

70  GETR$:  IFR$«"  ''THEN70 

72  A®ASC<fl$>-64' IFA<tORA>17THEN70 

75  IFA*17THEH4000 

80  FQRQ«1T024  :  B<Q>=-99  ;  NEXT 

110  INPUT  "SHOW  MANY  CH I  PS  ".UNI  FN>CHTHE  N 1 1 0 

120  CH=CH-N 

130  I FA- 1 THENGOSUE2600 

131  I FA=2THENGOSUB2640 

132  IFA=3THENGOSUB2680 

1 33  I F  A  s=4  T  HE  H  GGSUB 2 720 

134  IFA-5THENGOSUB2760 

135  IFR-6THENGOSUB2800 

136  IFA*7THENGOSUB2840 

137  I F fi -8T HE H 0 0 5UE2S80 

138  IFA=9THENGOSUB2920 

139  I F A® 1 0 THENGOSUB2960 

140  IFfl=l 1THENGOSUB3000 

141  I FR= 1 2THENGOSUB3040 

142  I F A  * 1 3THE  HGOSUB3080 

143  I FR= 1 4THENG0SUB3 1 20 

144  I FR=  1 5.THENG0SUB3 1 60 

145  I Ffi® 1 6T HEHGOSUB3200 
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156  GO SUE 10 

160  PR I NT" WHEEL  IS  SPINNING" : GO SUB 10 
170  COGUE 10 : PRINT"!’]" 

ISO  F0RB-1TG75  :  C=INT<RHD<0>*3S?-1  :  PRIHT'1rWWM,,r  :  Ff'iRT*iTri:";*B 

1 82  i Fco-i then pr i  nt "  rwwBoaa"  c 

1 83  I FC~'- 1 THENPR I NT  "  » 3D0UBL.E  ZERO " 

184  F0RT*1TQ3#B 

1 85  NEXT  =  GOSUB5000 ■ NEXT 

186  GO SUE 10 : PRINT "S3" 

187  I FCO- 1  THENPR  I  NT  "  BRLL  HRS  LANDED  RT"C 

190  I F  C=~ 1  THENPR  I  NT  "  EfiLL  HRS  LANDED  ON  DOUBLE  ZERO’1 
246  V=Q:E=1 

250  I FB  < E ) =CTHENV= i : GOT 0270 

269  I FE<24THENE=E+ 1 : G0TG250 

270  IFV— 0THEH370 
290  W I*OB#N : CH=CH+W I 

310  PR  I  NT  ”  C  ON  GRRTU  L AT I ONS  .<  VOU  HAVE  WON"  HI"  CHI  PS" 

330  GOSUB10 
350  GOSUB4O0 
360  GOTO40 

370  PRINT "SO  VOU  LOSE" = G0T033® 


400  I F CH< 1 THENPR I NT " VOU  HAVE  RUN  OUT  OF  CHIPS" : END 
410  I F CH> 1 1 00 THENPR 1 NT " VOU  HAVE  BROKEN  THE  BONK ! " 1  END 
420  RETURN 

2600  I NPUT"WHI  CH  HUMBER" ; D : B< 1 >=B : 0D~35 = RETURN 
264G  INPUT  "'/{WHICH  TWO  NUMBERS"  ;  Bt  1  > ,  B<2)  •  GD=17  :  RETURN 
2680  PR  I NT" WHICH  NUMBER" = INPUT"  IN  LEFT  COLUMN" ;B 
2690  FGRE=0TQ2 : B<E+ 1 >=B+E : NEXT • 0B= 1 1 : RETURN 

2720  INPUTM:®FIRST  HUMBER  OF  SIX"  1 D :  FORE--0TO5 :  B<E+1 5*D+E :  NEXT :  0D*5 :  RETURN 
2760  INPUT"  1ST  NUMBER  IN  SQUARE"  ;  B :  FORE=0TCj3 :  BCE+0=B+E :  IFE-2THENB-D+ 1 
2770  NEXT : OB =8 = RETURN 

280O  F0RE=1  T012  =  B<E>=E  :  NEXT  =  GD=2  =  RETURN 
2840  FORE* IT 012 :  B  <  E  > *E+ 1 2 : NEXT  =  0D=2  =  RETURN 
2880  FORE*  1  TO  12  :  B<E>“E+24  :  NEXT  :  0D=2  :  RETURN 
2920  FORE* 1 TO 18  - BCE>»E : NEXT  =  QD*1 : RETURN 
2960  F0RE*1T08 •  B-r.E>«E+18  ;  NEXT  :  QD~1 :  RETURN 
3000  PRINT-WOW  NUMBER  AT  END"  :  INPUT  "OF  LINE"  ID 
3010  FORE-0TO1 1 = B<E+1 >«3*E+D : NEXT : 0D=2 : RETURN 

3040  INPUT" WOW  NO.  1ST  COLUMN"  ;  Dl  :  INPUT"  WOW  NO.  2ND  COLUMN"  ;  1)2  :  IFRBS<Dl-D2» IT 
HEH3O40 

3050  FORE=0TO 1 1 =  B C E+ 1) =3*E+D 1 ■ B  < E+ 13 >*3*E+B2 : NEXT : GD* . 5 : RETURN 
308G  RESTORE 


3090 

3120 

3160 

3200 

3210 

3220 

4000 

4010 


FORE*  1  TO  18  :  RERIiB^E;.'  ■  NEXT :  0D*1  =  RETURN 

RESTORE • FORE* 1  TO 18  =  READZ  =  NEXT : FORE* 1 TO 18  =  READS <E> : NEXT : 0D*1 : RETURN 

F0RE*2T 036STEP2 = B<E/2>*E: NEXT : 0B=1 : RETURN 

FORE* 1 T035STEP2  =  B< <E+i  V2S=E  =  NEXT : 0D*1 : RETURN 

BAT  Ai ,  3..  5, 7,  9,  12,14..  16, 18, 19,21 , 23, 25, 27,30, 32,34, 36 

BRTR2, 4, 6 , 8, 10, 11, 13, 15, 17,26,22,24,26,23,29,31,33,35 

PR I NT " /JWWTt’QU  ARE  WITHDRAWING  FROM  THE  GAME  WITH  "CM "CHI PS" 

END 


5006  P0KE36S78, 5 


5O10  POK E36Q77 , 1 30+B : P0KE36875 , l 36+B 
5020  P0KE36878, 0 : P0KE36877 , 6 : P0KE36875,  Q 
5030  RETURN 
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SPACETREK 

You  are  in  command  of  a  galactic  probe  ship,  responsible  for  the  safety  of  a  ten  by 
ten  sector  of  space,  containing  the  Antares,  Procyon,  Rigel,  Vega,  Canopus,  Altair 
and  Sagittarius  sectors  of  the  known  galaxy  (see  lines  8540-8610).  This  area  of 
space  contains  a  number  of  rather  slow-witted  aliens.  They  are  immobile  during  a 
game,  although  their  positions  will,  of  course,  be  different  from  game  to  game. 

You  have  a  limited  amount  of  energy,  and  your  task  in  the  game  is  to  roam  the 
galaxy,  making  use  of  your  long  and  short  range  scanners  when  you  choose  to  do 
so,  to  locate  and  then  destroy  the  aliens.  A  direct  hit  is  not  always  successful,  and 
you  firing  on  the  aliens  often  enrages  them  so  that  they  fire  back  at  you.  If  they  hit 
you,  the  damage  you  sustain  is  measured  in  energy  units,  decreasing  the  energy 
you  have  left  to  use.  Moving,  firing  and  using  the  scanners  all  consume  energy. 
Long-range  scanners  use  up  more  energy  than  short-range  ones. 

When  you  run  the  program,  you'll  see  the  sector  space  drawn  out  in  the  bottom  left 
of  the  screen.  At  first  it  will  be  blank  except  foryou-the  red  inverse  dollarsign  in  the 
middle.  Under  the  sector  are  the  words  YOU  ARE  IN  RIGEL  SECTOR  AT  5  5  - 
ENERGY  1234 and  atthetop  ofthe  screen  are  yourthree  options  1  -SCAN  2-MOVE 
3  -  FIRE.  You  enter  one  of  the  three  numbers. 

SCAN  works  in  one  of  two  ways.  If  you  enter  1  to  show  you  wish  to  scan,  the  words 
SCANNER:  SHORT  (1)  OR  LONG  (2)  RANGE  will  appear.  Short  range  looks  at  the 
squares  immediately  surrounding  the  one  you  are  in,  and  reports  if  there  is  any¬ 
thing  there.  It  does  not  tell  you  in  which  direction. 

Long-range  allows  you  to  choose  the  direction,  and  gives  a  readout  of  two  squares 
away  in  that  direction.  As  I  mentioned  earlier,  captain,  long-range  scanning  uses  up 
more  energy  than  short-range  scanning  does.  If  you  told  the  VIC  you  wished  to  scan 
north,  it  will  reply  SCANNER  IS  POSITIVE  (which  meansan  alien  ship  is  to  the  north 
of  you)  or  SCANNER  IS  NEGATIVE  which  means  the  square  two  to  the  north  of  you 
is  empty. 

You  have  to  try  and  kill  as  many  aliens  as  you  can  before  you  run  out  of  energy,  but 
as  each  action  uses  up  energy,  you  must  judge  your  moves  most  carefully  before 
making  them.  If  you  fire  into  an  empty  square,  it  will  turn  into  an  inverse  blue  X  so 
you  know  not  to  shoot  into  that  square  again,  although  you  may  move  through  it  if 
you  like.  A  direct  hit  gets  an  inverse  purple  asterisk  in  the  relevant  square. 

You'll  find  that  playing  the  game  will  teach  you  more  about  howto  play  it  than  these 
instructions  will.  When  you  enter  FIRE  or  MORE  as  your  choice,  you'll  be  asked  to 
indicate  the  direction  you  want.  First  the  computer  will  ask  N/S  (for  north  or  south) 
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and  if  you  wish  to  move  in  one  of  these  directions,  enter  N  or  S.  Just  press  RETURN 
if  you  do  not  want  to  move  up  or  down.  Then  you'll  be  asked  to  choose  from  east  or 
west.  Again,  just  press  RETURN  if  you  do  not  want  to  move  east  or  west.  You  can 
combine  moves  to  move,  for  example,  north  east,  or  south  west,  if  you  like. 

The  program  is  very  tight  on  space,  with  just  over  100  bytes  left  when  the  game  is 
underway,  so  a  number  of  error-trapping  routines,  which  would  have  been  useful, 
have  been  left  out.  Certainly  you  should  add  them  if  you  have  memory.  Note  that 
the  short-range  scanner  cannot  be  used  in  the  outer  circuit  (that  is  if  either  co¬ 
ordinate  is  1  or  10).  The  long-range  scanner  cannot  be  used  if  either  co-ordinate  is  1, 

2,  9  or  10. 

There  is  nothing  in  the  program  to  stop  you  trying  to  move  off  the  galactic  grid,  but 
trying  to  do  so  will  cause  the  program  to  crash.  Add  your  own  choice  of  name  for  an 
alien  in  line  9240  if  you  don't  like  mine. 

If  you  haveextra  memory,  some  sound  would  certainly  enliven  the  action.  As  well, 
you  could  add  a  routine  to  move  the  aliens  slowly  about  and  one  to  put  the  name  of 
a  crew  member  before  each  report  (reports  being  direction  of  move  or  fire,  location, 
energy  level,  information  on  whether  you've  been  hit  or  not,  and  so),  with  the  actual 
crewmember  making  the  report  changing  from  time  to  time. 

20  GOSUBS000 
25  GO SUB 8000 

40  PR  X  NT  "  SBENERGY  "  I  NT  C.  E  > 

41  I FECI THEN 3800 

42  I FFO0THENPR I  NT  "  UfTfiLLV  "PL 

130  PRINT “SMI -SCAN  2-MOVE  3-FIRE" : INPUTD 

156  IFI(=1THEHGDSUB1000 

1 57  I FD=2THENGOSUB2000 

1 58  I FB=3THENGO8UB3000 
160  COT 040 

1000  GOSUB8006 

101O  PR I NT "  S*WSC ANNER : " 

1O40  PRINT” SB8SH0RT C 1 >  OR” : PRINT" 3L0HG  RANGE"  =  INPUTK 
1080  E=E-10#K=F=0 
1100  IFK=2THEH1500 

112S  IFfi<B+i ..  0  =  1  ORA < B+ 1 ,  C+ 1  ? *  1  ORA < B ,  0+ 1  :■  =  1  ORA <B-1  .■  0  =  1  ORA < B- 1 ,  C~  1  >  =*  1 THENF"  1 =  GOT 
01130 

1125  I F A < B , C- 1 > ORA i B+ 1 , C- 1 ? = 1 ORA <B~1 , C+ 1 > - \ THENF- 1 
1130  I FF = 0 T H E N PR  I M T  "  NEGATIVE”  =  GOTO  1670 
1140  I  FF=- 1 THENPR I  NT 11  m"  Z$"  NEAR”  =  GOTO  1670 
1 500  PR I NT  " D I RECT I ON  H- 1 ,  S-2 ,  E-3 ,  H-4 " : I NPUTH : Z»© 

1560  I  FH~  1  AND  A  *'  B-2  ,  C>  «  1 THENZ=  1 
1570  J.  FN=2  ANIifi  <B+2 ,0*1  TH ENZ=  1 
1530  I  FN=  3  AND  A  ■:.£.■  C+2>=1THENZ=1 
1 590  I FN-4ANDA < B , C-2 ) * 1 TNEHZ= 1 
164©  PRINT" ^SCANNER  IS  " ; 

1 650  I FZ= 1 THENPR I NT ” POS I T I VE ” 

1660  I FZ-0THEHPR I  NT " NEC AT I VE ” 

1 670  FORT- IT 02000 = NEXT : GOSUB8000 : RETURN 
2000  E*E-50:  A<E,  0=0  =  B<B.-  0=0 
2010  A$=’"' 
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2060  INPUT"  DIRECT  I  ON  <N/S>";R* 

2109  I  Ffl$=  ”  N "  THENB=B~  1 
2120  I FR$= " S "  THENB-B+ 1 
2140  PRINT "HON  RT"B"  "C 
2150  IHPUT"»iM«KE^H>"  j  BT 
2160  I FB$= ” E "  THEHC-C+ 1 
2165  I  FB:£-''  W"THENC=C-1 
2170  PR I NT "HOW  RT"B"  "C 
2130  FOR I = 1 TO 1 000 : NEXT 
2260  IFACB, C>=1THEH5500 
2270  ACE,  0=2  B<B..C>~2 
2250  CSQSUB8000 
2300  RETURN 
3000  G— B ;  11 " 

3005  PR  I  NT  "  m  I RECT I  OH  OF  FIRE”  :  I HPUT  "  H/S  >  j  RT  '  I  FAT =  "  H  ”  THEHG-G- 1 
3010  IFR#»"3"THENG*G+t 
3020  F=C 

3030  I NPUT,,IM»MKE/W>  « fi$ 

3120  I FRT = 11 E  "  THEHF-F+ 1 
3130  IFR$~"W',THENF*F-1 
3180  E"E-100 

3150  IFACG,F> 0 1 THEH3305 

3200  PRINT"VGU  HIT  THE'1  : PRINT*'W2$ 

3220  AL=FlL+l ;  BCG,  F>— 4 :  GOT 034 10 

3305  B  <  G ,  F )  =3 :  F'R  I HT ’’ Cfcf-r'QU  MISSED,  SIR" 

3315  FORG«1TO1000:HEXT 

3320  PRINT  "THE  "Z$"  ARE”  :  PRINT"  SHOOT  I  HO  BRCK " 

3325  FORG“ 1 TO 1 000 : NEXT 
3340  IF  RHD < 0 > > . 6THEN3400 

3350  PRINT"  SWTHEV  HIT  US  !  !  ”  :  E=E--100$RNDC0>  :  GOTO3410 
3400  PR  I  NT"  THE  11  Z$"  MISSED” 

34 1 0  FOR 1  =  1  TO 1 000 • NEXT : GOSUB3090 : RETURN 
3800  PRINT,,WENERGV  BANKS  EXHAUSTED” 

3810  PRINT,,Wi'OU  KILLEB"flL" ALIEN"  •  ;  I FALO 1  THENF'R I  NT 11 S 11 

3820  PRINT  "SION  THIS  MISSIONS  OUR  COMMAND  RATING  IS  ” 1000*CAL/8 

3830  GOT 03830 

5500  PRINT" WVOUR  SHIP  HAS  LANDED  ON  SHIP” 

5540  PRINT"WaSti'OUR  SHIP  HAS  EXPLODED” 

5550  GOT 0555G 

8003  PR  I  NT  "  ndWflWsMsWW"  : 

8020  FORQ*1TO10 
3045  FORF-1TO10 
3060  IFBCQ,  P>®0THENPRINT'W' 

8070  I FB  C Q; P) =2THENPR I HT "  " , 

8080  I  FB  <  Q ,  P  ;>  =3THENPR  I  NT  ”  CK«:  ” 

8090  I  FB  C  Q  .■  P =4THENF'R  I  HT 1 '  "  ; 

8 1 60  NEXT : PR I NT : NEXT 

8500  fiNB*C:PRINT,,r#T,OU  RRE  IN" 

8540  I FQC 1 8THENPR I  NT "  lANTARES  " 

8550  I  FG>9RNDGK20THEHPR I  NT 11 BPROCVON 11  ; 

8560  I  F0>  1 9 R ND Q C30 T HEN P R I  NT  ”  fSR  I  GEL  "  i 
8570  I FQ>29HHDQ<50THENPR I NT ”  SVEGR ” J 
8580  I FQ> 49RNDQ.C7  0THENPR I NT " SKflNOPUS" 1 
8590  I F Q > 6 9 R N D  9.  < 90THE N P R I  NT  '*  iiRLTFl  I R 11 
8600  I F GD89THENPR  I  HT  "  BS AO  I TTRR I  US 11 J 
8610  PRINT"  SECTOR  AT"D"  "C 
S64Q  RETURN 

390 0  D I MR (16, 10 > , BC IS, ICO 

9060  F OR A = IT 040 : K»INT<RNDC0>#18>+1 : V«INT<RNDC0>*10>+1 :  ACX, V>«1 : NEXT 
3150  B=5 :  C~5  :  ACB,  C J *2  •'  B C B ,  C >  =2 :  AL=0 
3240  Z*="ANDROZIflNS" 

3340  E=1234 
3350  P0KE36879, 25 
3390  RETURN 
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REACTION 

Your  reactions  come  under  scrutiny  in  this  program  which  uses  double-height 
characters.  When  you  run  the  program,  you'll  see  the  words  STAND  BY  appear. 
Then  the  screen  will  clear,  and  after  a  random  time  the  words  OK  NOW  PRESS  THE 
SPACE  BAR  will  appear.  You  must  hitthe  space  bar  immediately.  If  you  do  so  within 
the  time  limit,  the  words  HEY  YOU  DID  IT  come  up  on  the  screen,  and  the  process 
will  start  again.  However,  the  time  available  to  you  to  react  in  will  decrease. 

The  process  will  continue,  with  you  being  given  a  shorter  and  shorter  time  to  react 
each  time.  Eventually  you  will  fail,  and  a  'reaction  rating'  (LOUSY,  FAIR,  PRETTY 
GOOD,  VERY  GOOD,  or  YOU'RE  THE  CHAMP)  will  be  given,  depending  on  how 
short  was  the  time  of  your  last  successful  reaction. 

10  REM  REACTION 
15  DIMR$<4> 

20  PR  I  NT  "IT 
30  GOSUB9090 
40  R^=")!WflB>*iHSTRHIilHBV" 

50  B4:«”WW3KliHDWIF'RESS»rrHEIi»P*»il=;PnCE>C:RR" 

60  11  MWMHEVMt’OUMD  I  I>PII  T  " 

70  Q-50 

980  PR  I  NT"  ITS"  R$ 

985  FORT* 1 TO500  =  NEXT 
990  FORT= 1 TO 1 Q0+RNDC 0  >  *400 
992  I FRND  <  0  » . 99THENPR I NT "  3" 

995  NEXT 

1000  OETFt  :  IFFTO""THEN1000 
1010  PRINT"r^i"BT 
1020  E=TI 

1 030  GETF$ : IFF$=" " THEN 1 030 
1040  G=TI— E :  PRlNT'TSl" 

105©  I  FG<Q+  1 THENPRI  NTI>$ 

I860  IFG>QTHEN1120 
1 070  FORT= 1 TO2000 : NEXT 
1 075  Q=»Q- 1  NT  <  RHD  <  0  >  *5+2  > 

1080  GETF*  ••  IFF$0"  "THEN  1030 
1090  GGTQ980 
1120  PRINT":*" 

1 1 25  I  FQ>40THENPR  I  NT  "  m»L.OUSV " 

1130  IFQC41RHBQ>30THENPRINT"W*»|iFRlR" 

1140  I  FGK3 1  RNDQ>20THENPR  I  NT  "  KuMiPRETT  VfcIGOOD " 

1 158  I FQC2 1  RHDQ>  1 0THENPR I  NT  "  )®WER  VM300D " 

1160  I  FQ<  1 1 THENPR I  NT  "  MWVOUREmHE^EHAMP  " 

1180  FORT»1TO1000 : NEXT 

1 1 90  pr  i  nt  "  mmmmtow' 

1 200  PR  I  NT  "  NEWM3RMEMCOM  1 NGMJP  " 

1210  FORT- 1TO5000 : NEXT 
1.220  GOTO70 

9000  P0KE56..  28 : R-32776 :  FORB»7184TO7600STEP2 
9005  POKES.*  PEEK  :POKEE+l  .•PEEKCRj' 

9007  fi-R+l  '•  NEXT 

90 1 0  P0KE36879 , 25 : P0KE36369 , 255 
9015  P0KE36867  > 47 
9020  RETURN 
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QUACK  (DUCK 
SHOOT) 

In  this  rather  daft  game,  you  have  to  shoot  the  little  purple  ducks  flying  overhead. 
You  shoot  by  pressing  the  space  bar.  You  can  move  yourself  right  and  left  by 
pressing  the  "Z"  and  "M"  keys  respectively.  Yourscore  attheend  of  a  limited  time- 
which  clocks  down  on  the  screen  throughout  the  game  -  relates  to  the  number  of 
hits  you  had,  com  pared  with  the  number  of  shots  you  fired,  so  you  cannot  get  a  high 
score  just  by  firing  over  and  over  again. 

The  quacks  do  not  fly  in  a  totally  predictable  manner,  which  adds  to  the  challenge. 
The  sound  and  display  when  you  score  a  'hit'  is  quite  satisfying.  Note  that  there  is  a 
time  penalty  imposed  every  time  you  press  the  space  bar,  another  good  reason  for 
firing  with  moderation. 


10  REM  QUACK 

20  PR I NT "  rr  : PGKE36879 , 1 22 

30  B— 7 : H=10 : SC=0 : HI=0 ; PC=0 

40  FORP=1TD50 

45  IFP=41THENPRIHTna 

50  PR  I  NT 11  ST  I  ME  "50-P"  SHQTS"FC 

100  FORZK0TO20 

110  P0KE77S8+Z, 127 

115  PQKE7769+Z,81 

120  P0KE38483+Z,4 

125  POKE 38 4 39 +2.-  4 

142  GO SUB 5 00 


143  SC-SC+HI 

144  IFBI=S1THENPGKE36879.>  8 :  P0KE36879.-  122 

145  IFHI-1THENPRINT"S®?5C0RE"3C  :  H1=0 

147  PDKE38483+Z,B 

148  P0KE33439+2  f B 

150  IFRHB<  n>.4THENIFZ<17THENZ=Z+2 
160  NEXT 
170  NEXTP 
130  PRIHT":SOTTIME  IS  UP" 

190  PR I NT "SUCCESS  RATE " I NT < 1 0000# < SC+ . 0000 1 > / C FC+ . 03001  >V100! 
200  END 

500  PGKE38862+H B 
520  GETfl$ 

530  IFFl$=  "  Z  "  THEN  I  FH>  1THENH-H- 1 

540  I Ffi*~ ” M " THEN I FH<£0THENH=H+ 1 

56Q  POKE38S62+H.0 

570  POKES  142+H  ,,88 

575  IF " THENGOSUB 1 000 

580  RETURN 

1000  REM  SHOT 

1002  FOFC+1 :  P=P+1  :  IFP>49THENRETURN 

1003  IFP=41THENPRINT"a 

1004  PR I NT " 3T I ME " 50-P "  SHOTS "FC 

1005  FGRV=S098TO7768STEP“66 
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1010  PGKEV+H  .•  30 
1 020  PQKEV+H+ 30720 , 0 
1050  P0KEV+H+30728..B 
1060  NEXT 

1065  I FHs=ZORH~Z+ 1 THENH I - 1 : P0KE36878, 15 : FQKE36875, 230+H ; FORT* 1T03 -NEXT : P0KE36878, 
0 

1070  RETURN 

BILLBOARD 

This  tiny  program  produces  very  big  results  -  twice  as  big,  in  fact.  You  enter  the 
'advertising  message'  you  want  displayed  in  the  strings  A$,  B$  and  C$,  using  the 
'shift  right'  instead  of  a  space  between  the  words.  Only  letters  of  the  alphabet  can  be 
used  with  this  program.  Symbols,  spaces  and  numbers  are  not  allowed. 

You  may  well  wish  to  modify  the  program  so  that  instead  of  A$,  B$  and  C$  being 
permanently  set,  you  can  enter  them  each  time  you  run  it.  Simply  change  line  70 
into  INPUT  A$,  80  into  INPUT  B$  and  line  90  into  INPUT  C$.  Note  that  if  you  do  this, 
you  can  only  enter  single  words,  and  you  cannot  use  the  controls  to  position  your 
words. 


10  REM  BILLBOARD 

70  ht  == "  mkiwmmth  i  sun  swmtest " 

80  Bf  -  "  JGK^TH  I  S>tSHGWSNI*IHfiT>MH|il>HRPPENS  " 

96  C*  = "  MWORRPH  X  CHilBEMO  " 

160  GOSUB9000 
110  PR I NT" 3" H$ 

1 20  FORD* 1 TO 50 00 : NEXT 
130  PRINT"n"B$ 

1 40  FORD* 1 TO5000 : NEXT 

150  print" rye* 

1 60  FORD* 1 TO5000 : NEXT 
170  GOTO 110 

90Q0  POKES 6 , 28 : 8=32776 : F0RB=7 1 84 TO7600STEP2 : POKES , PEEK  <R> : POKEB+ 1 , PEEK  CFO ; R-R+l  : 
NEXT 

90 1  ©  POKES 687 9  .•  25 :  POKE-36869 , 255 :  POKE36067 , 47 
9020  RETURN 
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MAGIC  SQUARE 

The  clever  computer  generates  a  three  by  three  magic  square,  replacing  three  or 
four  of  the  numbers  with  zero.  As  you  probably  know,  each  line  of  numbers  in  a 
magic  square  (vertically,  horizontally  and  diagonally)  adds  up  to  the  same  total.  It  is 
your  task  to  work  out  what  the  missing  numbers  are. 

If  there  is  already  at  least  one  complete  row,  it  is  fairly  easy,  with  a  bit  of  swift  mental 
arithmetic,  to  determine  (a)  the  total  and  (b)  what  digit  will  complete  one  of  the 
other  rows.  This  new  digit  should  hel  p  you  with  another  row  and  so  on.  If,  however, 
there  is  not  a  single  complete  row,  as  sometimes  happens,  your  task  will  be  much 
harder, 

Thecomputercountsthe  numberof  moves  it  takes  you  to  completethe  square,  and 
then  gives  you  a  score  at  the  end  which  is  related  to  the  number  of  wrong  guesses 
you  made  on  your  way  to  solving  the  problem. 


1©  REM  MFIGIC  SQUARE 
20  Fl=  I  NT  <  RND  <  © ) *9  >  + 1 :  M=6 
30  PR  I  NT"  13"  -J-0 

40  6 =  I  NT  CP.MD  >  + 1  ■■  C=INT  C RHD  C 0  >*9  >  + 1 

50  IFA=BORA=CORE!=CTHEN40 

60  A  <  1  =A+B :  A  C  2  >  =  A-  C  E+C >  :  A  < 3  >  * A+ C  =  A  <  4  >  =M-E+C :  A  <  5  >  ~fi 
70  A  <  6  'I  =  A+B-C :  A  C  7  >  -R~C  =  A  <  8  > «A+B+C :  A  ( 9  >  =A-E 
140  F=0 

15Q  F0RZ=1T03:B<Z)=A<Z> 

16Q  IFB<Z>»0THENF®1 
170  NEXT: IFFalTHEHRUN 
180  B<A>=0 

190  B=  I  NT  <  RNB  f.  0  ?j  $9  > + 1 

200  I  FDOAANDDOBANBDOCTHENM-M- 1 

205  B(B>=0 

210  Ec:ii>=0 

220  B<C)«0 

225  G0TQ235 

230  GOTO310 

235  J-J+l 

240  PR  I  NT  "  3SBKWWHGUE8S  NO.  "J 
250  PRINT 
255  FORZ=l T09 
260  PRINTBCZ);”  "/ 

270  IFZ-30RZ=6THEHPRINT : PRINT 
280  NEXT: PRINT 

230  I FM09THENPR I  NT  "  JWWBTt'OU  HAVES!"  M  "  m  I GHT 

300  •  IFM»9THENPRINT"MWWSOi,OU  HAVE  SOLVED  IT"  :  PRINT"Mi'OU  SCORED  "INTO  0000/ J  > 

305  I FM*9THENFORT«1TO6000 : NEXT : RUN 

310  INPUT" WVOUR  GUESS" JW 

320  M*0 

330  F0RZ=1TQ9 

350  I F A < Z ) ‘-NTHENE CZ>  =M 

360  I FB  C  2 )  O0ThENM=M+ 1 

370  NEXT 

380  G0T0235 
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SIMON 

SIMON  appears  simple  to  play,  but  can  be  infuriatingly  difficult.  Your  task  is  to  copy 
the  growing  string  of  numbers  the  VIC  creates.  It  will  start  with  one  number 
between  one  and  four,  printing  on  the  screen  in  a  distinctive  colour,  in  a  specific 
position,  and  sounding  a  corresponding  note.  You  repeat  the  number,  and  it  will 
re-appear,  with  the  position,  colour  and  sound  as  before.  .  .  if  you  are  correct.  The 
first  number  will  then  be  repeated,  followed  by  a  second  number.  You  must  repeat 
both  of  these,  continuing  as  the  sequence  of  notes  and  numbers  builds  up,  until  you 
either  get  a  sequence  of  seven  correct,  or  you  make  a  mistake. 

You'll  find  that  you'll  improve  dramatically  with  practice.  Note  that  if  the  same 
number  appears  twice  in  row,  you  have  to  remove  your  finger  from  the  key  after 
pressing  it  the  first  time.  The  border  changes  throughout  the  game  to  keep  you  on 
your  toes. 


5  REM  SIMON 

10  fl$<l>«"aV.lW 

20  fl$  C 2 )  - "  '3V«2 V.“ 

30  n$<32«,,§fW3W 
4G  ft$  <  4  >  =  "3?W Vi¬ 
se  FriRT=  l  T04  :  RERBS < T >  :  NEXT 
60  P0KE36878, 15 : PRINT" 3" 

70  F0RO1TG7 

80  LETS  C  C )  =  I NT  < RND <  0  > *4  >  + 1 
93  NEXT 
95  L.ETX-1 

100  F0RQ=1T0X : P0KE36879,  23+X 

110  GOSUB700 

150  NEXTQ 

160  FORQ-lTClX 

170  GETE$ : I FE$= " " THEN 1 70 

18©  LETF=VRL<E$> 

1 90  I FFOB  C  Q  >  T HENS 00 
280  GOSUB700 
260  NEXTQ 

270  X=X+1 : IFX>7THEN280 
275  FORT “ 1 TO600 : NEXT : GOTO 1 00 
280  PR I NT" HELL  BONE.  VOU  BIB  IT" 
290  GOTO290 

500  PRINT "VOU  BLEW  IT" 

510  PR I NT "VOU  SCORED "X-l 
520  END 

700  C*afl*CBCQ>> 

705  FORT=0TO1  :  PR  I  NT 11  S3" 

710  F0RR"1T03#<B(Q>+T> 

720  PR  I  NT  "»r; 

730  NEXT 
740  PRINTCf 
745  NEXTT 

750  P0KE36875,SCB,:q;O 
760  FORV=1TO350 : NEXT 
762  POKE36875.0 
765  PRINT "3" 

770  RETURN 

780  DflTR195,207,215,225 
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MONTE  CARLO 
MOLECULE 

The  general  term  'Monte  Carlo  Simulations'  is  given  to  those  simulations  which 
show  the  result  of  chance  factors.  Brownian  motion  and  atomic  diffusion  are 
exampls  of  random  motion  which  can  be  emulated  with  a  Monte  Carlo  simulation. 
In  Monte  Carlo  Molecule,  a  molecule,  starting  at  any  position  on  a  ten  by  ten  grid 
you  designate  (we  suggest  you  try  5,5  as  your  first  one),  works  it  way  randomly 
around  a  small  box  until  it  happens  to  find  its  way  to  the  bottom  right-hand  corner 
(co-ordinates  10,10)  counting  the  number  of  moves  it  took  to  get  there. 

10  REM  MONTECARLO  MOLECULE 
20  PRINT,,:r  :DIMA<10j  10) 

25  GOSIJB 1500 'REM  START 

30  GO3UB500 : REM  PRINT 

35  I FP= 1 0 ANDQ* 1 0THEN35 

40  GO8UB1000 : REM  FIND  A  DIRECTION 

60  GOTO30 

500  REM  PRINT 

505  A  ■'  P ,  Q  >  =209 :  M*M+ 1 

510  PRINT-MMWMOVE  NO.  "M 

515  PRINT" WS” 

520  FORX=1TO10 
530  FORV=1TO10 
540  PR I NTCHR* \  A (X j V > > ; 

550  NEXT : PRINT : NEXT 
560  RETURN 
1000  REM  DIRECTION 
1010  R-:P.Q>=214 
1015  G*0 

1020  T«INT<RND<0)#0) 

1 030  I  FT »0THENGOSUB 1 100 
1035  I F T» 4 T HE NG 0 SUB  1 1 20 
1040  I  FT® 1 THENDOSUB 1 200 
1045  I FT =5THENG0SUB 1 130 
1 050  I FT=2THEHGGSUD 1110 
1 055  I FT-6THENGOBUB 1 1 40 
1060  I FT =3THENG0SUB 1210 
1065  IFWTHENGOSUB1150 
1070  IFG=0THEN1020 
1080  RETURN 

1100  I FP> 1 THENRwp- 1 : G» 1 
1105  RETURN 

1110  I FP< 1 GTHEN P»P+ 1 ■ G" 1 
1115  RETURN 

1 120  I FP> 1 ANDQ> 1 THENPaP- 1 : Q=Q- 1 ;  G=  1 
1125  RETURN 

1130  IFP<10AHDG<10THENP=P+1 :13=Q+1  :G=1 
1135  RETURN 

1140  I FP< 1 0RNDQ> 1 THENP-P+ 1 = Q=Q- 1=0=1 
1145  RETURN 
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1150  RETURN 

1 200  I  FQ>  1  THENQeQ- 1  '■  G- 1 
1205  RETURN 

1210  IFQC10THENQ=Q+1 :G*1 

1215  RETURN 

1500  REM  STRRT 

1510  FORX-1 TQ1 0 

1520  FORV=1TO10 

1530  R<XiV>*214 

1540  NEXT: NEXT 

1550  PRIHT,,™i«tta)!5CO-ORDINRTE3  OF" 
1360  INPUT" STRRT  POSITION" ; P, Q 
1570  I FP< 1 ORP> 1 90RCK 1 ORQ> 1 ©THEN 1 35© 
1580  fl<P,Q>=209 
1390  PR  I NT" 

1600  RETURN 


BIORHYTHMS 

This  program  is  based  on  the  three  cycles  which  affect  us  throughout  our  lives  — the 
physical,  emotional  and  mental  cycles.  The  23-day  physical  cycle  relates  to  such 
things  as  strength,  aggressiveness  and  endurance.  The  emotions  are  said  to  be 
affected  by  a  28-day  cycle,  which  relates  to  optimism/pessimism,  frustration, 
temper  and  moodiness.  The  mental  cycle  is  33  days  long,  and  this  relates  to  logic, 
common  sense,  reasoning  and  ease  of  expression. 

When  you  run  the  program,  you'll  be  asked  to  enteryour  date  of  birth  (following  the 
clear  prompts),  and  the  day  for  which  you  want  a  biorhythm  calculated.  The 
computer  will  give  you  three  forecasts-the  day  before  the  one  you've  specified,  the 
day  you  want  and  the  one  which  follows  it. 

You  are  then  given  the  option  fora  new  forecast  (based  on  the  same  date  of  birth)  or 
of  stopping  the  program.  A  zero  rating  is  a  neutral  day,  positive  figures  are  a  good 
sign,  while  negative  ones  are  warnings  of  a  bad  day  in  the  area  governed  by  that 
particular  cycle.  If  all  three  are  negative,  you'd  better  stay  in  bed  for  the  day. 

10  REM  BIORHYTHMS 

15  REM  RLRSTRIR  GOURLRY/T I M  HRRTNELL 
20  PRINT"a»DJWWENTER  YOUR  BRTE  OF  BIRTH" 

30  INPUT" WEAR  <R8  1984)" ;R 
40  INPUT"W10NTH  <RS  7 ) "  j  B 
56  INPUT "MDFIV  <RS  21>";C 
60  fl*fl#365.23+B#30.4+C 

70  PR  I  NT "  rMWKMRND  HON  THE  BRTE  FOR  YOUR  BIORHYTHM " 

80  INPUT"Mi'ERR  <RS  1984)";B 
90  INPUT,,W10NTH  CRS  7>";C 
100  INPUT"MDRY  <RS  21V,;D 
110  B=B*363 . 25+C#30 . 4+D-R 
112  PRINT "3" 

115  FORFs-lTOl 

116  I  FF=- 1 THENPR I  NT 1 "  iJIPREV  I OUS  DRV :  "  =  E=B- 1 

117  I FF-0THEHPR I N T " iMBRY  OF  FORECAST : " : B=B+i 

118  I FF= 1 THENPR I NT " iMNEXT  BRV : " : B=B+1 
120  C=23 


130  PR  I  NT  "  BFHVS I CAL  ’■  ”  J 
140  GOSUE250 
150  C=28 

160  PRINTl,SCMOTIONRL:"; 

170  GOSUB250 
180  C-33 

190  PRINT"BiIHTELLECTUflL  :  "  J 
200  GOSUB250 
205  NEXTF 

210  PRINT"WW*WBENTER  "V"  FOR  A  NEW  FORECAST.*  'N'  TO  STOP" 

220  GET  W$: IFN$s""THEN220 
230  IFWP* 'Y"THEN70 
240  END 

250  PR  I  NT  I  NT  Cl  00*3 1 H  <  C  B~  I  NT  C  B/C  >  *C  > /CM4/7  >  > ;  "  X  " 

260  RETURN 

CANNIBAL 

CHARLIE 

You  get  to  play  God  in  CANNIBAL  CHARLIE.  You  specify  how  many  cannibalsthere 
will  be  at  the  start  of  creation,  and  how  many  explorers.  Your  aim  is  to  create  a 
society  that  survives  as  long  as  possible.  Too  few  explorers,  and  the  society  will  die 
within  a  month  or  so.  Too  many  explorers,  and  they'll  overwhelm  the  cannibals, 
again  bringing  things  to  a  halt  within  the  first  month.  The  program  gives  you  a 
population  readout  at  the  end  of  each  month.  There  is  a  'highest  score'  (i.e.  longest 
survival  of  a  particular  society)  feature,  so  you  can  try  to  out-God  yourself.  If  you 
don't  like  the  scenario,  you  can  change  it  to  foxes  and  rabbits,  or  any  predator/prey 
combination  you  prefer. 

The  variable  FD  (food,  set  in  line  1 00)  determines  how  many  cannibals  can  feast  on  a 
single  explorer.  Although  this  does  not  change  within  a  single  series  of  games,  it 
will  be  different  each  time  you  run  the  program  from  the  beginning. 

10  REM  CANNIBAL  CHARLIE 

20  PR  I  NT "  HHWW’JELCOME  TO  CANNIBAL  HfilPCHARLIE" 

30  PR I NT " MSI N  THIS  GAME  YOU  APE  ST30DB,  AND  IT  IS  VOUR  JOE  TO  SET  UP  THE" 

40  PR  I  NT 11  RULES  FOR  CANNIBALS  AND  EXPLORERS  IN  SUCH  A  WAV  THAT  THE  SOCIETY1'; 
50  PR  I  NT 11  LASTS  FOR  THE  LONGEST  POSSIBLE  TIME.  BHBPRESS  ANY  KEY  WHEN" 

60  PR I NT "VOU 'RE  READY  TO  PLAY" 

70  GETA$ : IFA*"" " THEN 70 

80  HI-0 

100  FD=RND<0> 

110  PR  I  NT "  TKKS7 1 NE  .*  GOD.  NOW  HOW  MANY  CANNIBALS  WILL  WE"; 

120  PR  I NT" START  WITH  C<108>?" 

125  INPUTCP: IFCP>99THEN125 
170  PR  I  NT  "TXSCANHIBAL 3 :  " 

180  PRINT"SF'OPULATION:  "CP 
190  CP-GP/3 

210  PRINT"  WOW,  THEE*  EXPLORERS : MS" 

220  I NFUT " POPULHT I ON  -X 1 00 > " J EP 
225  I FEF>39THEN220 
230  EP=E P/3 
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250  PRINT" MflMWraPLEflSE  STAND  BV" 

260  GOSUB1000  :  PR  I  NT 11  n" 

270  Dfi=0 : CS-CS/2  =  ES=£S/2 
280  BR=DR+1 

250  PR I  NT "  nflMIONTH " DR : I FBR= 1 THEN300 
300  IFCP>EP/FBTHENCP=EP/FB 
3 1 0  CP-CF+  C  <  8#CP-CP#EP/3 >  #FD  > 

320  EP-EP+ < C 4#EP-EP#CP >*. 0 1 > 

330  PRINT"Ml»!HI"  I  NT  (CP> "CflNNIBPLS" 

340  PRINT" MUMS" I NT <EP> "EXPLORERS" 

350  I FEP<2C<RCP<2THEN390 
360  GOSUE1000 
370  GOTO2S0 

390  IFBFDHS  THEN  HS=BR 
395  IFCP<10REP<lTHENPRINT"n" 

400  PR I NT " WSEND  OF  THE  LINE/  GOD" 

410  PRINT" WITHE  SOCIETV  SURVIVED  FOR "DR "MONTHS" 

420  PRINT  "JflKBEST  SO  FRR  IS"HS 

430  PR  I  NT"  ’m  INPUT  -'V'  FOR  fl  NEW  CREPT I QH.  RNV  OTHER  KEV  TO  STOP" 

440  G'ETRT  -  IFR$-"  "THEN440 
458  I  Ffi$® "  V 11  THEN  1 1 0 

460  PR  I  NT"  MB  VE  EVE..  VOUR  ALMIOHTVNESS" 

470  END 

1 000  FORV- 1  TO 4 000 : NEXT 
1010  RETURN 
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OTHELLO/ 

REVERSI 

Othello  is  based  on  the  game  Reversi  which  was  invented  in  1888.  Reversi  was 
played  on  a  standard  draughts  board,  using  double-sided  pieces  -  red  on  one  side, 
black  on  the  other.  In  his  splendid  book  "Discovering  Old  Board  Games"  (Shire 
Publications  Ltd.,  Aylesbury,  1 980),  R.C.  Bell  explains  that  black  begins  the  game  by 
placing  a  piece,  blackside  upon  one  ofthe  fourcentral  squareson  the  empty  board. 
Red  replies  by  placing  herfirst  piece,  red  side  up  on  another  central  square.  "These 
foursquares  are  covered  in  the  first  four  turns  of  play,  and  then  the  players  continue 
alternately,  placing  their  pieces  on  a  square  adjacent  to  one  occupied  by  an  enemy 
piece,"  Mr  Bell  writes. 

Any  enemy  pieces  in  a  straight  line  between  the  latest  piece  placed  and  another  one 
ofthe  player's  pieces,  is  then  turned  over  to  show  the  player's  colour.  The  winner  is 
the  player  with  the  most  pieces  when  the  board  is  completely  covered,  or  when 
neither  player  can  move. 

You'll  find  the  VIC  plays  slowly,  but  remarkably  well,  in  this  version  of  the  game. 
You  get  the  choice  of  going  first  or  second.  You  move  by  entering  the  number  of  the 
square  down  the  side,  then  the  number  across,  entering  both  as  one  double-digit 
number  (such  as  36). 


Othello  is  a  registered  name,  copyright  Mine  of  Information, 
1  Francis  Avenue,  St  Albans. 


1  REM  OTHELLO  CHRRLTON/HRRTNELL 

2  REM  MOTE  LETTER  0,  HOT  ZERO 

3  PEN  CLS  IS  CLEAR  SCREEN 

4  PR  I NT "H" : REM  CLS 

5  I'-fiSCC'M")  0=flSC<''0"> 

6  POKE  36879,24: REM  BLACK  BORDER 
10  r.IHA<10,10) 

28  FORB=1TO10 
30  FGRC-1TQ1© 

46  IF  EOl  AND  COl  AND  EC  10  AND  CO  19  THEN  ACB  ,C>  =  fiSCOV) 

so  nextc 


60  NEXTT 


70  AC5,5>-X 
SO  A(6,6>“X 
?0  R<6,5)“0 
ICO  FK5,6>“0 
li0  P-0 

120  PRINT’THDO  VOU  WANT  TO  GO"  REM  CLS,  RED 
13D  PRINT11  FIRST  <1 -YES,  2-NO)’1 
140  INPUT  W 

lOO  PRINT"  33"  REM  CLS ,  BLUE 
160  GOSUB  300Ei 
170  IF  N-l  THEN  2000 
1000  PRINT"  flY  MOVE 

1010  s-o 

ifi20  t-:: 

1030  H“6 
1040  FORh-2  TO  9 
105©  FORE-2  TO  9 
106O  IF  A(A,B>046  THEN  1320 
1S70  0~0 

1080  FORC— 1  TO  1 
109O  FORD~-i  TO  1 
1100  K-© 

111©  F-R 
1120  G-B 

1130  I Ffl  <  F+C ,  G+B ) OS  THEN  1186 
114©  K-K+l 
115©  F-F+C 
1160  G“G+D 
1170  GOTO 1130 

US©  lFfi<F+C,G+BK>T  THEN  128© 

1190  0-0+K 
1200  NEXTD 
1210  NEXTC 

1220  I FA-2  OR  fi-9  THEN  0=0*2 
1230  IFB-2  OR  E~9  THEN  0-0*2 
1240  I FA-3  OR  fl-8  THEN  Q-Q/2 
1250  IFB-3  OR  B=8  THEN  0=0/2 
1260  IF<A=2  OR  R=9>  AND  <E=3  OR  B=3>  THEN  0=0/2 
1278  IF<A~3  0PA“8)AND(B=2  OR  B-9)  THEN  CM>/2 
1280  IF  Q<H  OP  Q“0  OR  <RND<1»0.3  AND  Q“H)  THEN  1320 
1290  H~0 
1300  M-fl 


1310  N=E 

1329  NEXTB 

1330  NEXTfl 

1340  IFH-0  RND  R=©  THEN  5080 
1350  IFH-0  THEN  1370 


1360  GOSUB  4000 
1370  GOSUB  3000 
2000  INPUT "YOUR  GO";R 
2910  S=X 
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2020  T~0 'REM  LETTER  0 

2035  REM  0  TO  PASS 

2040  IF  R=0  THEN  2090 

2050  IF  R<1I  OR  R>88  THEM  20G0 

2060  11“  INT(R/10)+1 

2070  N=R-10*INT<R/10>+i 

2080  GOSUB  4000 

2090  GOSUB  3000 

2100  GOTO  1000 

3000  PRINT  "JS"  :  REM  HOME 

3010  C=0 

3020  H=0 

3030  PRINT:  PRINT dDTHELLOS"  : PRINT 
3032  REM  BLACK/ RVSON*  RV3QFF 

3035  PRINT"!*  81234567883" :  REM  RED/ PVS0N.RV30FF,.  BLUt 
3040  FORE *2  TO  9 
3050  PRINTB-I.: 

3060  F0RD~2TO9 

3070  PRINT  CHRi<fi<B..  D>)  ; 

3030  IF  FKB -  THEN  C^C+1 
3090  IF  D>~0  THEN  H*H+1 
3100  NEXTD 
3110  PRIHTB-1 
3120  NEXTB 

3130  PR INF'S  312345673®"  =  REM  RED/  RVSON,  RVSOFF  ■  GREEN 
3140  PRINT 

2150  PRINT"  I  HAVES"  ;C 
3152  PRINT 

3155  PRINT"  fcYQU  HfiVES’MH.: 3" 

3157  PRINT 
3170  RETURN 
4000  F0RC--1  TO  1 
4910  FORD— l  TO  1 


4020  F“M 
4030  G“N 

4040  IFfl<F+C/G+D)OS  THEN  4080 
4050  F~F+C 

4069  G=G+B 

4070  GOTO4040 

4080  IFfl<F+C/G+D)OT  THEN  4140 
4090  A<F/G>-=T 

4100  IF  M-F  AND  N“G  THEN  4146 

4110  F“F-C 

4I20  G“G-D 

4130  GOTO4090 

4140  NEXTD 

4159  NEXTC- 

4160  RETURN 

5000  IFOH'THEN  PRINT" I  WOH";C.;H 
5010  IFH<C  THEN  PRINT" VOU  WON’SClH 
5020  IFH=C.  THEN  PRINT" IT'S  A  DRAM?’ 
5030  END 
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DR  WATSON 
AND 

DR  AUDIO 

This  is  a  pair  of  simple  programs,  in  which  the  VIC  thinks  of  a  number  between  one 
and  a  hundred  and  challenges  you  toguess  it.  In  'Dr  Watson'the  feedback  is  words, 
and  it  is  pretty  easy  to  guess  the  number.  'Dr  Audio',  by  contrast,  uses  a  tone  to  let 
you  know  how  close  you  are  to  the  correct  number.  Once  you've  played  about  five 
games,  you'll  probably  be  quite  pleased  to  see  how  good  you  become  at 
interpreting  the  sounds. 


DR  WATSOIM 

5  REM  DR  MATSON 

6  C=1  :PRINT"T 

10  PRINT" I  AM  THINKING  OF  R  NUMBER  BETWEEN  ONE  AND  100" 

30  A-INT<RNDU>#100>+1 
40  PRIHT"WHRT  IS  IT"; 

45  INPUT  B 
50  OC+1 

55  REM  "WRONG"  IN  RED 

60  IFBOA  THEN  PRINTm  X;  B;  "SIS*  WRONGS" 

65  IFB-R  THEN  120 
67  PRINT"GUESS"; C; "IS  *; 

70  IFEKfi  THEN  PRINT’,in’00  LOWS" : REM  GREEN, BLUE 
80  IFB>fl  THEN  PRINT"£T0G  HIGHS": REM  PURPLE, BLUE 
90  IF  C<10  THEN  45 
100  PRINT: PRINT"!  SEND  OF  THE  GAMES" 

110  PRINT" Ail  WHS  THINKING  GFN;fl:GOTOl?0 
128  PRINT"VES>  YOU  ARE  RIGHT!" 

130  PRINT 

140  PRINT" SI  MAS  STH INKING"  , "OF" ; A 
150  PRINT 

160  PRINT" IT  TOOK  YOU" ;C/' GUESSES" 

170  FORJ=1TO2000 :  NEXTJ 
180  RUN 

DR  AUDIO 

5  REM  DR  RUDIO 

6  Ol 

7  P0KE36878,7 

10  PRINT" I  AM  THINKING  OF  A  NUMBER  BETWEEN  ONE  AND  100" 

30  A-INT<RND<1>#100>+1 
40  PRINT" WHAT  IS  IT"; 

45  INPUT  B 
50  C=C+1 
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55  REM  "WRONG1'  IN  RED 

60  IFBOA  THEN  PRINTm!l|"JB;  "SI SSI  WRONGS" 

65  IFB=A  THEN  120 

67  PRINT"GUES$";C; "IS  "i 

7<3  POKE  36875>  ABS<A-B>+128 

80  F0RT= 1 TO?00 : NEXTT 

85  POKE  36875.0 

90  IF  C<30  THEN  45 

100  PRINT:  PR  I  NT*'*  SEND  0F  THE  GAMES" 

110  PRINTS!  WAS  THINKING  OF";R:GOTQ170 
120  FRINPVES,  VOU  ARE  RIGHT!" 

130  PRINT 

148  PR  I  NT  "SI  WAS  -THINKING”  .  "OF";  A 
150  PRINT 

168  PRINT" IT  TOOK  VOU" ;C>  ''GUESSES" 

170  FGRJ=1TO2000 :  NEXTJ 
180  RUN 


ZODIAC 

FORTUNE  TELLER 


ZODIAC  FORTUNE  TELLER,  written  by  A.G.T.  Stevens,  uses  a  question  and  answer 
method  to  get  the  VIC  to  earn  its  keep  providing  sideshow  entertainment.  The 
results  should  not  be  taken  too  seriously. 


5  PRINT-T 
10  GOSUB  840 
20  PRINT 

30  PRINT-WILL  VOU  PLEASE  " 

40  PRINT"  TELL  ME  VOUR  NAME" 

50  INPUT  fli 
60  PR I NT" T 
65  GOSUB  840 
67  PRINT 

70  PR I NT "-THANK  VOU  "iftt 
80  PRINT 

90  PR  I  NT"  WILL  VOU  NOW  PLEASE" 

100  PRINT"  TELL  ME  VOUR  BIRTHDAV” 

110  PRINT 

120  PRINT-ICIVE  ME  4  NUMBERS" 

130  PRINT 

140  PRINT-S10NTH  FIRST" 

150  PRINT"  0KJAH)-12(BEC>" 

160  PRINT 

170  PRINT"  FOLLOWED  BV  D AV¬ 
ISO  PRINT"  01-31 
190  INPUT  B 
200  PR I NT" X 
210  GOSUB  840 
228  PRINT 

225  PR I NT "3  VOU  WERE  BORN  UNDER" 

230  PRINT"  THE  SIGN  OF 
240  PRINT 

258  IF  B>=8101  AND  B<*8120  OR  B>=1223  AND 
260  IF  B>=0121  AND  B<=0219  THEN  PRINT" 

270  IF  B>*0220  AMD  BO0321  THEN  PRINT" 

280  IF  B>=0332  AND  B<=  420  THEN  PRINT" 

290  IF  B>=0421  AND  B<*6521  THEN  PRINT" 

300  IF  B>=0522  AND  B<=  0621  THEN  PRINT" 
310  IF  B>=0622  AND  B<«0723  THEN  PRINT" 


BO  1231  THEN  PRINT" 
AQUARIUS" 

PISCES" 

ARIES" 

TAURUS" 

GEMINI" 

CANCER" 


id 


CAPRICORN" 
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320  IF  B>=0724  AND  B<=0823  THEM  PRINT"  LEO" 

330  IF  B}=0824  AND  B<*0923  THEN  PRINT"  VIRGO" 

349  IF  B>=0?24  AND  B<*1023  THEN  PRINT"  LIBRA" 

350  IF  B>=1024  AMD  B01122  THEN  PRINT"  SCORPIO" 

360  IF  B>=1123  AND  B<=1222  THEN  PRINT"  SAGITTARIUS" 

370  PRINT 

330  PR I  NT "SHALL  I  TELL" 

390  PR I NT "YOUR  FORTUNE  ";A*;"?" 

400  PRINT 

410  PRINT"  PRESS  V  OR  N" 

420  INPUT  C* 

430  IF  CT="Y"THEH  PR  I  NT  "T 

431  IF  C>"Y"THEN  GOSUB  940 
440  IF  CI«"N"  THEN  GOTO  329 
450  PRINT 

460  J=INT  < 10*RMD< 1  >  >+l 

479  IF  J=I  THEN  PRIMT"2ITCHY  PALM7A  CASH  WINDFALL  COULD  BE  DUE" 

430  IF  J=2  THEN  PRINT"5BEWARE!fl  FINANCIAL  DEAL  COULD  LOSE  YOU  MONEY" 

490  IF  J=3  THEM  PRINT "SAN  ACQUAINTANCE  MAKES  ATTRACTIVE  PROPOSAL  BE  CAREFUL! 

500  IF  J=4  THEN  PRINT"3INVEST  SPARE  MONEY  WISELY" 

510  IF  -J=5  THEN  PRINT"aAVOID  INDECISION  STICK  TO  EXISTING  PLANS" 

520  IF  >6  THEN  PRINT"SrlOU  ARE  ENTERING  A  SUCCESSFUL  PHASE" 

530  IF  J=7  THEN  PRINT"3IMPORTANT  TO  KEEP  ON  GOOD  TERMS  WITH  EVERYBODY" 

540  IF  >8  THEN  PRIHT"3AMBITIOUS  PLANS  COULD  BE  IN  YOUR  FAVOUR” 

550  IF  >9  THEN  PR I NT" SI F  YOU  HAVE  PREVIOUSLY  FRILED-TRV  AGAIN" 

560  IF  >10  THEN  RRINT,,3JEH  INTERESTS  COULD  BRING  FRESH  BENEFITS" 

570  FOR  T=1  TO  150: NEXT  r 
530  PRINT 

590  K3 1 NT < 1 0*RND Cl ) )+ 1 

600  IF  K3 1  THEM  PRINT"ICERTAIN  PEOPLE  MAY  BE  ANYTHING  BUT  HELPFUL" 

610  IF  K=2  THEM  PRINT"SiAVOID  EMOTIONAL  ENTANGLEMENTS" 

620  IF  K=3  THEN  PRINT"HAH  INTERVIEW  OR  MEET-  -I HO  COULD  BRING  MORE  SECURITY" 

6S0  IF  K-4  THEN  PRINT"HSOCIAL  LIFE  COULD  PROVIDE  MORE  VARIETY" 

640  IF  K35  THEN  PRINT"Sfi  BUSY  MONTH  AHEAD  IS  INDICATED" 

650  IF  K=6  THEN  PRINT"INOT  AN  ENERGETIC  MONTH  AHEAD  BUT  TRY  TO  VARY  YOUR  ACTIVI 
TIES" 

660  IF  K-7  THEN  PR1HT"W1AKE  SURE  YOU  RRE  HOT  CAUGHT  OFF  GUARD  LATER  NEXT  M 
OHTH" 

670  IF  K.=8  THEN  PRIHT-SNOU  MAY  HEED  HELP  FROM  CLOSE  CONTACTS" 

630  IF  Ks9THEN  PRIHT"SFALL  IN  WITH  OTHERS  ARRANGEMENTS" 

690  IF  K=10  THEN  PRINT"liSOME  KIND  OF  FAMILY  .REUNION  COULD  TAKE  PLACE" 

700  FOR  S=1  TO  150: NEXT  § 

710  PRINT 

720  L=INT<10*RND<1>>+1 

730  IF  L=1  THEN  PRINT"flFRESS  ON  WITH  OUTDOOR  ACTIVITIES" 

740  IF  L=2  THEN  PR I NT" PLANETARY  INFLUENCES  FAVOUR  TRAVEL" 

750  IF  L-3  THEN  PRINT'VSRH  OPPORTUNITY  WILL  ARISE  GIVE  IT  CAREFUL  CONS I DERAT  I 

ON" 

760  IF  L=4  THEN  PRINT'VJTHIS  MONTH  IS  FAVOUR-  -ABLE  FOR  AGREEMENTS" 

770  IF  L=5  THEN  PRINT"OTESTING  TIME  AHEAD  BE  PREPARED!" 

7S0  IF  L-6  THEN  PRINT"tfBE  FASHIONABLE  BUY  A  NEW  OUTFIT" 

790  IF  L=7  THEM  PR  I  NT  "WRY  TO  CUT  DOWN  ON  INESSENTIALS  OTHER-  -WISE  PROBL 

EMS ! " 

800  IF  L=9  THEN  PRINT"33UPERIOR3  COULD  BE  DIFFICULT  BE  FIRM  BUT  COURTED 

US" 

310  IF  L=9  THEN  PRINT"W  FRIEND  MAY  HAVE  PROBLEMS  TRY  TO  BE  HELPFUL" 

320  IF  L=1 0  THEN  PRINT  "OFFERS  OF  HELP  MAY  EE  REFUSED-PERSIST  YOU  ARE  NEEDED" 

325  END 

329  PRINT"T 

830  PRINT  "S5ALL  RIGHT  THEN  ’^A*;"  BYE  BYE" 

331  END 
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840  PRINT  TflBvS);  ,,r:| - I" 

850  PRINT  TflB<3)J”fa  iMfllXSPSW  E'SHTillHIISR*;  !" 

860  PRINT  TRB(3>;"I  I" 

870  PRINT  TflB(3);"l  ■Fr»!T?8rr3J^iE  I" 

880  PRINT  TRB<3>;  "[ _ I" 

S90  POKE  36878,15 

908  FOR  L=1  TO  1O0 

9 1 0  POKE  36576 , 1  NT  <  PNB  f  1 )  .*  1 23  >  + 1 2S 

920  FOR  N=1  TO  10 

930  NEXT  M 

940  NEXT  L 

950  POKE  36376,0 

960  POKE  36378,0 

970  RETURN 


TRANQUILLITY 

BASE 


Here  is  a  short  moon-landing  simulation  which,  despite  its  simplicity,  is  good  fun  to 
play  and  will  certainly  give  you  a  challenging  task. 

You  start  off  around  500  feet  above  the  luna  surface,  with  a  limited  quantity  of  fuel. 
You  control  the  descent  of  your  craft  by  entering  your  choice  of  thrust  by  pressing 
the  number  keys.  You  have  fairly  tight  limits  within  which  to  land  safely. 

Running  out  of  fuel  before  you  reach  the  ground,  or  hitting  the  ground  at  an 
unacceptable  speed  will  cause  you  to  crash.  A  minus  velocity  means  you  are  falling 
towards  the  luna  surface.  You  may  well  start  off  climbing  away  from  the  moon,  but 
its  gravity  will  soon  draw  you  down. 


Once  you've  mastered  the  program  in  its  present  form,  you  may  wish  to  add  a 
display,  or  modify  the  program  in  some  other  way.  Giving  yourself  less  starting  fuel 
is  a  good  way  to  make  the  program  more  difficult.  F%  is  your  fuel,  V%  your  velocity, 
and  H%  your  height. 


10  REM  TRFiHQIJILUTV  ERSE 
20  FX=  1 30+RNB  < 1 y *40 
30  VE»-6+RND<l>*20 
40  HX=500-RHBa>*10 

60  priht,,:t 

70  PRIHT"W«i®Wr^iJEL.:  "FK 

80  PR  I  NT  "  jMMBMEVELQC  I  TV  :  "VX 

90  PRINT>inWMmWHhEIOHT :  "HX 

100  GET  fl*i ;  FCiRJ=slTO80@  ■  NEKTJ 

110  FM»FX-flX 

120  CJisflJS-2 

125 

i 30  HX*HX+ VK+CK^4 


140  VX=VX+CX 

145  I FFX< 1 fiMBHXC 1 0TH  EH 160 
150  IF  HXM0THEN  60 
160  IFVX>-9ANDVX<8THEN  210 
170  PRINT" EWCRFI3HH 
180  FORT- 1TO300: NEXT 
196  GOTO 170 

210  PRINT”!*REfiT  ^LANDING,  3CHIEF" 

220  PRINT  :  PRINT  "FlNfiL  READINGS  AS  VQU" 

225  PRINT" TOUCHED  BONN  ON  THE" 

226  PRIHT’’LUNR  SURFACE :  ’’ 

230  PR I NT : PR I NT " FU  EL : " F X 
240  PRINT " VELOC I TV • “VX 
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VINCENT  VAN 
VIC 

You  control  a  red  diamond  using  "A"  (up),  "Z"  (down),  (left)  and  (right)  to 
draw  out  a  picture  on  the  screen.  You  can  stop  the  moving  diamond  at  any  time  by 
pressing  any  key  except  for  the  four  indicated.  You  choose  the  colour  you  wish  the 
computer  to  use  by  pressing  the  relevant  colour  key.  Pressing  a  colour  change  key 
will  automatically  stop  the  diamond  moving,  so  it  is  'drawing'  in  the  new  colour 
when  it  is  started  again. 

The  computer  starts  drawing  in  white,  so  it  is  invisible  on  the  white  background. 
You  can  therefore  move  the  red  'cursor'  diamond  to  wherever  you  like  before  you 
start  drawing.  You  can  also  move  it  anywhere  on  the  screen  during  the  course  of  a 
drawing,  without  leaving  a  line.  'Drawing  in  white'  can  also  be  used  to  erase 
unwanted  parts  of  a  drawing. 


10  REM  VINCENT  VAN  VIC 

2©  REM  MOVE  RED  DIAMOND  WITH  THE  A  Z  ,  .  KEVS 

3©  REN  TO  CHANGE  COLOR  PRESS  THE  NUMBER  OF  THE  COLOUR  VOU  WANT 

4©  REM  TO  STOP  CURSOR  MOVING  HIT  AHV  KEV  EXCEPT  FOR  CONTROL  ONES 

5©  PR  I  NT l’  rr  :  G0SUE9540 

10©0  GETA*: IFflf=""THENfW*B$ 

1005  I F A$> ” O " AND m < " 3"THEHU=VRL < m > - 1 
101Q  E=:C  :  T — S 

1 02©  I  FAT=  ’’ .  "  T HENS =5+ 1  =  C=C+ 1 
1030  IF fl$=", " THEHS-S- 1 : C=C- 1 
1040  I F A$= " fl " THENS=S-22 = C*C-22 
1050  I  Ffi$-  "  Z  "  THENS»5+22 :  C-C+22 
1060  I FPEEK  *'  S  )  - 1 02THEHC-E  :  S  "-T 
1070 

1030  FOR G= IT 0608 = NEXT 

1200  PGKEE,U 

1210  P OK EC , 2 : POKES ,  90 

1230  GOTO  1000 

954©  8=7954 

9550  0=38674 

9560  B$="” 

959©  FORZ«7630TO7701 = POKES. 102 : POKEZ+30729, 0 : NEXT 
9600  FGRZ-G 1 64T08 1 85 : POKES . 1 02 : POKEZ+30720 . 0 : NEXT 

9620  FORZ=7680TOS  1 64STEP22  •  P0KE2. 102  :  POKEZ+30720.-  0 :  POKEZ+21 102  :  POKEZ+30741 O  ;  HE 
XT 

9630  U=1 
9640  RETURN 
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CRAPS 

Craps  is  a  relatively  simple  gambling  game  played  with  two  dice.  The  simplicity  of 
the  game  itself  is  somewhat  offset  by  the  complexity  of  the  betting  possibilities.  To 
make  it  easier  to  learn,  we've  included  two  versions  of  the  game:  'Minimalist  Craps' 
to  show  you  the  game  of  craps  in  action,  and  'SF  Craps'  which  enables  you  to  bet 
following  some  casino-like  rules. 

As  you  can  see,  the  first  listing  is  very  short  indeed.  Enter  and  run  it,  and  you'll  then 
find  it  much  easier  to  understand  the  description  of  the  game. 

To  play,  you  roll  two  dice  and  add  up  their  pips.  If  you  roll  a  seven  or  an  eleven  on  the 
first  roll  {called  a  'natural')  you  win,  and  that  round  is  over.  If  you  roll  a  two,  three  or 
twelve  on  the  first  roll  (called  'craps'),  you  lose.  Rolling  four,  five,  six,  eight,  nine  or 
ten  onthe  first  roll  becomes  your 'point'.  The  aim  ofthe  game-assuming  it  has  not 
ended  with  the  first  roll -is  to  roll  your  point  again,  before  you  throw  a  seven.  When 
you're  sure  you  understand  these  instructions,  look  again  atthe  first  Craps  program 
in  action  to  relate  what  you've  read  here  to  the  program. 

Once  you've  understood  craps  so  far,  you're  ready  to  enterthe  deluxe  version  ofthe 
game,  SF  Craps.  In  this  version,  you're  introduced  to  Craps  betting.  You  can  bet  on 
the  round  overall  for  a  win  ('Pass')  or  on  the  round  overall  for  a  loss  ('Don't  Pass').  If 
the  game  lasts  more  than  one  roll  of  the  dice,  you  can  have  a  side  bet  on  each 
subsequent  roll,  betting  that  a  particular  number,  including  seven  if  you  like,  will 
come  up.  You  do  not  need  to  make  the  side  bets  if  you  preferto  keep  the  game  fairly 
simple. 
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10  REM  MINI  MRU ST  CRRPS 
12  G=Q-W=0-L“0 
15  G-G+ 1 

£0  B*="V0U  ROLLED"  :  PRINT" 73“ 

£7  PR I HT : PR I NT " M I NS " W , " L 0 SS ES " L 
2S  PR  I  HT  :  PR  I  NT  "  GAME  NUMBER. "  G 
30  GOSUB200 
40  IFR~7GRA=1 1THEN240 
50  I FR“20RA=30RR= 1 2THEH230 
55  F'=R 

60  PRINT  ^ PRINT "VOUR  POINT  IS"P 

78  GOSUB2G0 

30  I Ffl=FTHEH230 

90  IFR-7THEN240 

1 08  FORT- 1 TO 1 0G0 : NEXT 

110  PR  I  NT"  73"  GGTO60 

20 0  ft*  I  NT  <  RHU  <  1  )  *6+ RND  <  1  •'  *6+ 1  > 

2 1 0  FORT - 1 TO 2 000 : NEXT 
215  PRINT  1 PRIHTB$fl 
£20  RETURN 

230  PR  I  HT  "  VOU  W  IN,,:  W*W+ 1  '  GOTO250 
240  PRINT" VOU  LOSE"  L-L+i 
250  FORT= 1 TO 1000 • NEXT 
260  GOTO 15 


10  REM  SF  CRRPS 
15  PRINT "73"  :  GOSUB  770 
20  MD=i20 
38  GOTO  115 

40  PRINT-aWWaPRESS  RETURN  TO  ROLL" 

50  GET  IFft$=""  THEH50 

60  ft* I NT < RND  <0  > *6 >  + 1 HT < RND <0>*6>+2 

70  GOSUB  770 

80  PRINT"M»i'OU  ROLLED "fl 

82  FORT* 1 TO50O : NEXT 

85  RETURN 

100  IF  M0<1  THEN  PR INI" YOU'RE  3IBR0KE ! " ■ GOSUB770 ■ GOTO 100 
110  FOR T= 1 T 05000 : NEXT  T 

115  PRINT"  71“ -PRINT  :  PRINT"  Wt'OU  START  ROUND":  PRINT  TAB<8> 1 "WITH  ST’MO 
120  PRINT"  W^LACE  VOUR  BET" 

130  PRINT"  JW-'P-'S  TO  PLACE  BET"  :  PRINT  "ON  PRSS  LINE," 

140  FRINT"Ma'D'S  FOR  DON'T  PRSS" 

150  GET  B$:J.F  B$«MM  THEN  150 

155  IF  B$OmP"  AND  B$0“D"  THEN  150 

160  B*0 

170  INPUT” '.SEIZE  OF  BET" ;  B 

180  IF  B>MO  OR  BO  THEN  GOTO  170 

190  GOSUB  40 

206  IF  A 07  RND  ROll  THEN  GOTO  310 
210  REM  NATURAL 

220  PRINT " JSIfVOU  ROLLED  R  NATURAL" 

230  IF  THEN  270 

235  PR I NT" OH  PRSS  BET" 

240  PRINTttWB»MJU  WIN  *"B 

250  MO=MO+B 

260  GOSUB  770 ; G0T01 10 

270  PRINT  "ON  DON'T  PRSS  BET" 

280  PRINT  "WMrt’OU  LOSE  $"B 
290  MO=MQ-B 
300  GQTO100 

310  IF  RC>2  AND  R03  AND  AO  12  THEN  350 
320  GOSUB  770: PRINT :PRINT"!CF  WCRfiPS ! n 
325  FOR  T=ITG100 : NEXT  T 
330  IF  B$="P"  THEN  2S0 
340  GOTO240 
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350  PT=fl 

355  IF  M0C1  THEN  100 

360  PRINT"W/OU  HOW  HAVE  $MMO 

370  PR  I  NT  ’’  )!1?t,OUR  POINT  IS  "PT 

380  PRINT"W3INPUT  HUMBER  FOR"  :  PRINT"SIDE  BET,  OR.  PRESS 
390  PRINT "fHPETURH  H^OR  NON-BET" 

400  K$="":C=0 
410  INPUTK* 

420  IF  THEM  490 

430  OVflL<K*> 


440  IF  C<2  OR  CM2  THEN  Am 
450  INPUT "HOW  MUCH";D 
470  GOSUB  710 

480  IF  D>MG  OR  IK1  THEN  450 
490  GOSUB  60 
497  IFfi~7THEH630 

500  I Ffi=PTTHENPR I NT " STVOU'  VE  MRBE  VOUR  POINT" : I FC=0THEN230 


520  IFC*0THEN355 

530  IF  COfi  THEN  530 

540  PRINT "AND  VOU  WIN  fl  SIDE" 

550  PRINT  "BET  OF  $"UI 
560  MO—MO+WI 
565  IFR=PTTHEN230 
570  G0T0355 

530  PR I NT" VOU  LOSE  $"WI 
590  PR  I NT "OH  VOUR  SIDE  BET" 

600  M0=MO-WI 
665  IF  MOO  THEN  100 
607  IFfi«PTTHEH230 
610  00T0355 

630  PRINT" BVOU  ROLLED  7...." 

640  I FB$="D"THENPRINT"ON  DON'T  PASS  BET" : GOTO240 
660  PR I NT" ON  PASS  BET" : GOTO280 
710  REM  ODDS/WIN 
720  WI'D 

730  IF  A =6  OR  A=8  THEN  WI*IHT<<9#D/3>+.55 
740  IF  A =5  OR  A=3  THEN  WI= INTC <5#D/2>+. 5> 

750  IFA=4  OR  A=9  THEN  WI=2*B 
760  RETURN 
770  REM  SOUND 
7S0  POKE  36878, 15 

790  FORT=10  TO  130  STEP  RND<1 10+. 5 

300  POKE  36876, 255” T 

820  NEXT  T 

830  POKE  36876,0 

840  POKE  36878,0 

850  RETURN 
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SPEEDWAY 

Drive  your  little  car  around  the  track,  under  control  of  the  joystick,  or  keyboard  ("A" 
-  up,  "Z"  -  down, -  left, -  right)  at  a  choice  of  nine  different  skill  levels.  Your 
score  is  related  to  both  the  skill  level,  and  to  the  length  of  time  you  manage  to  keep 
your  car  going  without  hitting  the  boundaries  of  the  track. 

There  is  a  highest  score  feature,  so  you  can  compete  against  yourself  in  subsequent 
runs.  Your  current  score  is  clocked  up  continuously  in  the  top  right  hand  corner  of 
the  screen.  Once  you're  familiar  with  the  game  in  its  present  form,  change  the 
racetrack  (from  line  8040)  to  one  of  your  own  design,  or  write  a  routine  to  produce  a 
different  race  track  each  time  you  play  the  game. 

10  REM  SPEED WAV 

13  REM  JO VST I CK  VERSION 

20  HS=0 

30  GQSUB3000 

520  P0KE36373, 15 

522  F0RT=1T0SK : P0KE36876, 130+ 10*T : NEXT 

525  PGKE36878, 0 : P0KE36376, 0 

540  I FPEEK  <  7680+Cfl+22*CD >  = 1 02THENR*  1 

560  POKE<7680+CR+22#CD?  .•  35 

370  POKE<384d0+CR+22*CIO  . 1 

380  RE=CR : ED*CD 

390  6OSUB2000 

600  I FX=0THENX-B 

620  IFCD>2RNEX»22THENCD«CE-1 

630  I FGD<22RNDX--22THENCD*CD+ 1 

640  I FCR> 1 ANDX* 1 THENQR=CR- 1 

650  I  FCR<20RNDVv“- 1 THEHCR-CR+ 1 

655  TS-X-  IFX«22THENX«-22 

656  SOSC-X  :  PR  I  NT”  SC*  <  10-SKI> 

660  POKE  <.  38400+RE+22*ED  >  .■  0 
690  IFfl*0THEN320 

710  PQKE36873, 15 
720  FORV«150TO250STEP5 
730  PQKE36877 , V 
740  FORT* 1 TGV/5 = NEXT 
750  NEXT 

760  P0KE36878, 0 : PGKE36877, 0 
765  SC*SC# < 1 0-SK  > 

770  PRINT,,MftUNi’OU  SCORED” SC 
730  IFHS<@CTHENHS»SC 
790  PRINT”J®WPHIGH  SCORE  IS”HS 
800  FORT=1TO2000 : NEXT 
310  GOT 030 

2000  POKED!) ,  127  :  S3“-<  (PEEK  <PB)flNH  128  >**0)  :  POKEDD,-  255 

2010  P=PEEK(PR)  :Sl*-< (PANES >*0>  :  S2*(  (PRND16:>*0>  :  SO*'-  <PRND4>*0.'> 

2020  FR*- <  < PRHD32  >  *0 ) ; X*S2+S3 : V=S0+S 1 
2030  X=-JS(X+1,V+1> 

2040  RETURN 

8000  REMINTIRLISE 

3005  PR  I  NT1’  IT 

8007  P0KE36879, 8 

8010  R=0 ■ REM  CRASH  FLRG 

8012  GOSUE9000 

8015  SC*0 : REM  SCORE 

3020  Cfl=2  :  CD=*3  :  REM  STARTING  POSITION  OF  CAR 
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8030 

8040 

8050 

3660 

3070 

8080 

8090 

8100 

8110 

8120 

8130 

8140 

8150 

3160 

8170 

8180 

8190 

8210 


8230 

8240 

8250 

8260 


3265  IFHSO0THENRETURN 

8270  D I M JS <.2,2:>-  POKES?  1 39 ..  0  :  DD-37 1 54  : Pfl-37 1 37 :  PB-37  1 52 
8280  FORT=0TO2 : FORJ-0TO2 : READJS< J , T > ; NEXT-J ,  T 
8290  DRTR0,  -22,  0..  -1 , 0..  1 , 0, 22..  0 
8500  RETURN 

9000  PRINT"  3:«MWBOTENTER  VOUR  SKILL" 

9010  PR  I HT "  JBWLEVEL  Cl  TO  9)" 

9020  OETB# : SK-VALCB* > 

9030  IFSK< 1 ORSK> 9 T HEN9020 
9840  RETURN 


10  REM  SPEEDWRV 
lg  REM0KEVBOflRD  VERSION 

30  GOSUB8000 : REM  INITIALISE 

40  GO SUBS 20 : REM  MOVE  CRR 

50  IFR-0THENGOTO40 

60  GOTO700 : REM  SMASH 

100  REM  NOISE 

110  P0KE36878,  15 

120  POKE36875,RNDC0)#10+140 

130  FORT « 1  TO  1 03f.SK 

140  NEXT 

150  P0KE36878.- 0 

160  POKE36875,0 

170  RETURN 

520  REM  MOVE  CRR 

530  GOSUE100 : REM  NOISE 

540  I FPEEK  <  7690+C A+Z2HSCD  > *  1 02THENR®  1 

560  POKE<76S0+CA+22#CD) j  35 

570  POKE  <  38400+C A+22HCCD > ,  4 

580  flE*CA : ED-CD 

590  OETA* 

600  I FA#-" "THENA#-B# = OOTO620 

605  I  FA#<>  "  A  "  THEN  I  Ffl#<>  "  2 "  THEN  I  Ffl#0  "  .<  "THENIFFfcO" .  "THENA# 

620  I FR$= " R " flNBCD>2THENCD*CD-  1 

630  1FA#*°"2  "  ANDCD<22THENCD-CB+ 1 

640-  IFR$="  ,  "  RHBCFO  1THENCR=CR-1 

650  IFR$=" , " RNBCR<20THENCA-CA+ 1 
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655 

656  SC=SC+1 

660  POKE<33400+AE+22*ED\.  1 

690  RETURN 

700  REM CRASH 

710  P0KE36873, 15 

720  FGRV= 1 50TG250STEP5 

780  F0KE36377 . V 

740  FORT- 1 TO V/5 : NEXT 

750  NEXT 

760  POKE3687S, 0 : P0KE36877, 0 

765  SC-SC#  <10-310 

770  PRINT,,»»*MWWi'OU  SCORED  "SC- 

780  IFHS<SCTHENHS=SC 

790  PRINT "MW0MHIOH  SCORE  IS”HS 

80G  FORT- IT 02000 : NEXT 

810  G0T030 

8000  REMIHTIALISE 

8005  PRINT” 3" 

8010  R-0 : REM  CRASH  FLAG 
3012  GOSUB9000 
3015  SC-0: REM  SCORE 

8020  Cfi-2 : CD-3 : REM  STARTING  POSITION  OF  CAR 
3030  B$=" - " 


3040 

8050 

8060 

8070 

3080 

8090 

3100 

8110 

3120 

3130 

3140 

8150 

8160 

8170 

3130 

8190 

3210 

8220 

8230 

8240 

3250 

8260 

8503 

9000 

9010 

9020 

9030 

9040 


PR I NT" n 


PRINT"!*** 

PR  I  NT  "WWW 
PRINT"** 

PRINT”!*  2 
PRINT*’  m 
PRINT"** 

PRINT"#** 

PRINT"®*** 

PRINT”* 

PRINT"** 

PRINT" 

PRINT" 

PRINT” 

PRINT” 

PRINT"! 

PRINT1 
PRINT" 

PRINT”! 

PRINT”1 
PRINT” 

PRINT"*! 

RETURN 
PR  I  NT "  rjSTOMKWENTER  VOL 
PRINT"».EVEL  <1  TO  9 
GETB*  =  SK-VAHB*> 

I FSK< 1 ORS K>9T H E H 9 0 2 0 


UR  SKILL1 


RETURN 
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TREACLE 

BALLS 

In  this  game  of  logic  and  deduction,  you  roll  balls  down  a  series  of  chutes  numbered 
one  to  seven.  There  are  three  pools  of  treacle  in  the  chutes.  They  may  all  be  in  the 
same  chute,  in  three  different  chutes,  ortwo  in  one,  andthethirdin  a  different  chute. 
They  may  all  be  in  the  same  chute,  in  three  different  chutes,  or  two  in  one,  and  the 
third  in  a  different  chute.  You  have  six  seconds  (guesses)  to  work  out  where  the 
treacle  lies. 

When  a  ball  hits  treacle  it  either  sinks  (you'll  be  told  THE  BALL  VANISHED)  or  is 
deflected  to  the  chute  to  the  right  or  left  of  the  one  it  is  in.  If  there  is  treacle  in  two 
adjoinning  chutes,  they  may  both  act  on  the  ball  before  it  reaches  the  end, 
confusing  you  to  some  extent. 

If  you  wish  to  guess  where  the  balls  are,  you  enter  '8'  instead  of  a  chute  num  ber,  and 
then  enter  your  three  guesses.  You  will  be  told  how  many  you  had  correct.  If  you 
think  there  are  two  pools  in  the  same  chute,  you  must  enter  the  number  twice  in 
your  guesses.  If  you  fail  to  guess  where  the  treacle  lies  within  six  seconds,  you'll  be 
told  where  it  is,  and  the  game  ends.  If  you  wish  to  make  the  game  a  little  easier  the 
first  few  times  you  play  it,  change  the  six  in  line  70  to  a  higher  number. 


10  REM  TREACLE  BALLS 
20  REM  POSITION  TREACLE 
30  FORA-l T03 
40  B  <  FO  - 1  NT  CRND  ■■  1  >* 7  >  + 1 
50  NEXT 

60  REM  COUNT  GUESSES 

70  F0RH=6T01  STEP-1 

80  PR  I  NT"  3^  OU  HAVE 11 H"  SECONDS" 

85  PRINT  "'CENTER  BALL  CHUTE  NO.  ■' 

86  PR I  NT "OR  8  IF  YOU  THINK  YOU" 

87  PR I NT "KNOW  WHERE  THE" 

S3  PR I NT "TREACLE  LIES" 

90  INPUTC: IFC=8THEH5000 
95  GOSUB3000  ' 

100  B=1 

110  IFB<IO »CTHE N 1 000 

120  IF  IKS  THEN  B=D+1 : GOTO! 10 

125  GO SUB 4 000 

130  PRINT" SfTHE  BALL  ROLLED" 

140  PRINT" OUT  OF "C 
150  FOR  2=1102000 : NEXT 
160  NEXTH 

170  PRINT"*IBORRY,  TIME  IS  UP" 
180  PR I NT "WITHE  TREACLE  WHS  IN" 
190  FOR  A=1T03 
200  PRINT  B< A) 

210  NEXT 
220  END 
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1000  REM  TREACLE ! 

1010  IF  RNIK  1 }>*=„ 9  THEN  £069 
1020  IF  C= 1  THEN  O2-GDTO100 
1030  IF  C=7  THEN  C-6 : GOTO 100 
1040  F~I HT < RHD < 1 > *2 > - 1 
1060  C=C+F 
1975  GOTO 100 
2000  REM  LOST 

£010  PP.INT"'.f!TTHE  BALL.  VANISHED" 

2020  GOTO 150 

3000  pr  i  nt  "  umasr  trb  <  3+c  > ;  c 
3015  FQRZ-1TQ5 
3920  FORV«  1  TO  1  mZ  ■  NEXT V 
3030  PRINT  TREKS) ; "«  I  I  II H  I  " 

3040  NEXT 
3050  RETURN 

4090  PRINTTAB<3+C) "B"  J C" JOT 

4038  RETURN 

5000  REM  TRIAL  GUESS 

5010  PRINTMftiOK,  WHERE  DO  VOU" 

5020  PRINT" THINK  THE  TRERCLE" 

5039  PRINT "POOLS  ARE?" 

5040  INPUTQC  1  >  .•  QC2 )  ,  QC3) 

5059  SR«=0 

5055  FORV- 1T03 : W< Y>*B C V> : NEXTV 

5060  F0RN-1T03 
5070  F0RM=1T03 

5080  IFO<H?«B<N>THENSR=SR+l : B<NJ*0 : Q<M>«0 
5090  NEXTMjN 

5105  FORP=1T03 

5106  B(F*>=W<P> 

5107  NEXT 

5110  IF  SR>2THEN  5150 

5120  IF  SR>0  THEN  PRINT  "VOU  GOT" SR" RIGHT" 
5130  IF  SR“0  THEN  PRINT" WRONG,  WRONG,  WRONG" 
5140  GOTO 150 

5150  PRINT" Wt’ES,  VOU  GOT  THEM" 

5160  PRINT " W I TH " H "SECONDS  TO  GO" 
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ENGULF 

In  this  game,  you  are  moving  about  (most  musically,  as  you'll  hear)  trying  to  avoid 
being  trapped  by  the  coloured  blocks  the  computer  is  placing  on  the  screen.  You 
have  to  keep  moving  as  long  as  you  can.  Eventually,  thanks  to  the  clever  VIC,  you 
become  engulfed  by  blocks,  and  will  not  be  able  to  move  any  more,  you'll  be  given  a 
score  related  to  how  long  you  managed  to  remain  free. 

Your  movements  are  controlled  by  the  same  keys  as  in  Zombie  Island  -"A"  up,  "Z" 
down,  left  and  right. 

iO  REM  ENGULF 

20  GOSUB9490 

30  SC“0 ; REM  SCORE 

1000  GETR$  =  IFR$="  l,THENFl$=B$ 

1010  E*C:Q«© 

1020  IFR#=  " . 11  THEN8=S+1 :  C*C+1 :  N=195 
1030  I  FFl$= 11  ,  "  THENS*S-  1 :  C«C- 1 :  N=207 
1 040  I  "  FI "  THEN8=3~22 :  OC-22 :  N=2 1 5 

1056  I  FFl*= 11 2  "  THEHS«S+22 :  C=C+22 :  N=225 
1060  W=PEEK<:S>  :F«9 
1 070  I FW* 1 02THENC~E : S=Q 

1075  I FPEEK  < Q+225 * 1 02THEHF=F+ . 25 

1076  I FPEEK <  Q-22 ) « i 02THENF-F+ .  25 

1 077  I FPEEK  <  Q- 1 )  =  1 02THENF=F+ . 25 

1078  IFPEEKi:Q+l>  =  102THEHF-F+.25 
1090  IFF=1THEN200O 

1100  SC=SC+1 

1110  H=76S0+IHTCRNBC0?^484> : IFPEEK<HJ=102THENl 1 10 

1 120  J«H+30720 : POKEH, 162 

1130  M=INT<RNDC0>#7> : IFM-1THEN1 138 

1140  POKE J  ,  M  ■ 

1 150  P0KE36S74/N : P0KE36875 , N+ 1 
1200  P0KEE,1 
1210  POKECj  2 : POKES ,216 
1220  B$=Fl$ 

1230  GOTO 1800 
2008  POKE-36878, 0 

2010  PRINT"lsaflHOT»MilI'VE  GOT  VOUM" 

2020  PRlNT"M>»Wir7GlJ  SCORED" SC*£36 
2030  GOTO2030 
9490  PRINT” 73" 

9540  S=7954 
9550  C =38 67 4 
9570  B$=" 

9590  FORZ=7680TO7701 J POKES , 102 : POKEZ+30720, 2 : NEXT 
9600  FGR2=8 1 64T0S 1 35 : POKES , 102 J POKEZ+30720, 2= NEXT 

9620  FORZ=7680TO81643TEP22 : POKES, 192 : POKES+30720,  2 : POKEZ+21 , 102 : POKES+3074 1 . 2 : NE 
XT 

9630  POKE 3687 8, 15 
9640  RETURN 
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TIGHT  SQUEEZE 


This  program  is  fun  to  play,  especially  for  younger  children.  The  VIC  selects  two 
numbers  between  one  and  13,  tellsyou  how  much  moneyyou  have,  and  asks  you  to 
bet  on  the  likelihood  of  the  third  number  lying  between  the  two  numbers  generated. 
If  you  are  correct,  and  the  third  number  does  lie  between  the  first  two,  you  win 
doubletheamountyou 'invested'.  Ifyou  are  wrong,  you  lose  the  amount,  so  long  as 
you  have  money,  you'll  be  offered  new  rounds  of  the  game.  You  start  with  $20,  and 
you  can  bet  any  or  all  of  the  money  you  have  in  hand. 


10  REM  TIGHT  SQUEEZE 
20  D=20 

25  PRINT".!": REM  CLEAR  SCREEN 
30  fi-INT(RHIKl}#13)+l 
40  B“INT(RND(1)#13)+1 
50  IF  ABSCB-AK2  THEM  30 
60  OIHTCRNIK1  )#13)+1 
70  IFA=C  OR  B=C  THEN  60 
80  PRINT  "SUV  FIRST  HUMBER  IS"ift 
90  PRINT"*  MV  SECOND  IS";B 
100  PRINT 

120  PRiNT,ltti'0U  HAVE  Mr;D;"§" 

125  PRINT 

130  PRINT "HON  MUCH  DO  YOU  BET" 

125  PR I NT "MV  NEXT  HUMBER  LIES" 

137  PRINT"  BETWEEN' ";fi;  "AND’SB; 

150  INPUT  E 
160  IFE>D  THEN  150 
170  I  FECI  THEN  PRINT"!CkO*JinER,TlD!* 

180  FORZ- 1 T0999 : NEXTZ 
190  PR I NT "31V  NUMBER  18"; C 
200  IF  E< 1  THEN  2S0 
210  IF  HOT  (ON  AND  CCB  OR  CCA  AND  C>B>  THEN 
220  PRINT "WELL  DONE" 

225  PRINT’^YOU  WIN  2*E 
230  D*D+2#E 
240  GOTO  280 

250  PRINT" 1SS0RRV,  YOU  LOSE  $";E; 

260  D^D-E 

270  IF  DC1  THEN  310 
280  F0RZ=1 TO2000 : NEXTZ 
290  F0R2“1T024: PRINT 
292  L~INT <RND< 1)#500)+1 
294  C"INT<RND(1)#8)+1 
296  POKE  7680  +  L,160 

298  POKE  38400+L.C 

299  F0RH~1 TO50 : HEXTX 

300  NEXTZ 
305  G0T025 

310  PRINT" THE  GAME  IS  MOVER!  !S“ 

320  PRINT"3IY0U  ARE  BROKE 
325  F0RZ=1T0999: NEXTZ 
330  GOTO320 
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FRUIT  MACHINE 

This  splendid  program,  which  uses  the  VIC's  graphics  most  effectively,  was  written 
for  the  book  by  M  Kendall.  There  are  three  reels,  and  each  reel  has  four  symbols. 
You  can  stop  all  the  reels,  then  either  HOLD  or  NUDGE  each  one. 

Due  to  effective  government  cost-cutting,  you  start  with  5p,  and  each  game  costs 
you  just  2p. 

The  winning  combinations: 

Same,  same,  same  -5p 

Same,  same,  any  -3p 

Any,  same,  same  -Ip 

Your  controls: 

Any  key  to  stop  the  reels 
N  to  NUDGE 
H  to  HOLD 
Any  to  play  again 

0  F0KE36879, 27  =  PRINT1 “3®  BV  M. KENDALL  1932” 

1  PRINT"HBWM  2B0  YOU  WANT" :  PRINT ^INSTRUCTIONS?1’  :PRINT"*HW!  CV  OR 
N>" 

2  GETQ$: IFQ$=" "THEN2 

3  irC$="V"7HEN  COSUB  1363 

4  L=5 

5  PRINT" 3“ 

6  L=L-2 

7  W=8 

S  POKE  36373, 10 

9  POKE  36379,72 

10  iaaiuiimi  jiiiues' -  ■  - ”■ 

20  r$<2)«"  kiun.a  -.xmia  saniia  is/msct-' 

30  h#<3 ;=,:a  sinaiiaa  sisarsiiha  ■i  tiiiich 
43  a*<4>"  ni.'jaifa  Jim  ammsr 
45  F0RN=1T03 

50  fl-INT<RND<l)*4)+l 

51  RCN)=fi 

54  G=(N-1)*?+1 

55  PRINTTfiBtG)"  IKSaHUl  Jimilli  JSlSIEEIi  J1IIIIBII 

56  PRINT”#" 

68  PRINTTfiB<G);fit<R) 

61  POKE  36375/200 : F0R2= i TO 1 0 : NEXT : P0KE36875 , 0 
66  PRINT”#" 

70  NEXTN 

80  GETQ$:  IFQ$O""THENi30 
109  G0T045 
190  F0RN-1T33 
280  ’jETQS  :  IF8$="  "THEN290 
£10  I FQ$a " H " THEN253 

229  IFQ$="N,,THENGCSUB300 :  GOTO240 

230  GOTO290 

249  PRlNTTflB(  CH-i  )*?+!  >,,W«0«mHUDGEr^TTIT^,, 

245  GOT 02 60 

£59  PR  I NTTfiB  <  CN- 1 ) #7+1 ) "  KCOPWW  HQLD.TTTT TTTT 
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260  NEXTN 
270  GOTO300 
233  END 

300  fl=INT<RHB<n#4>+l 

301  fi(N)=fi 

305  printtrb<<n-u*7+i)"  amii  amm  aiinii  annul 


VIC  FRUIT  MACHINE 


310  PRINT11  an" ; TRB<<N-1)#7+1 >R$<fl) 

320  PRINT"*" 

330  RETURN 
500  PRINT 11 

510  I Ffi  a >=fi  <£  JfiNDR < 2  > sfi <3 ) THENW=5 ' GOTO550 
520  IFfi<I >=fl(2)THENM-3 
530  IFfi<2)=fl<3UHENW=l 
550  PRINTW;"IP  MINUS  2P  " 

560  PRINT11*  FOR  THIS  GAME" 

563  I F W=5THENPRI NT " *  tfkJRCKPOTm11 '  GOSUB9000 

565  PRINT11***!" 

570  L=L+W' PRINT"*  JiHQNEV  LEFT - .M;L 

575  IF  L>20  THEN8000 

530  IFL<0THENPRIN7"TH  VOU  ARE  BROKE! !“  =0070700 
609  GETQ$  ■  IFS$0"  "THEN5 
510  GQTO600 

700  PRINT‘'W4THflTS  THE  END  FOR  VOU" 

70 1  FORZ* 128T0255  =  P0KE36877 , Z : FQRT*iT01 0  '  NEXTT ,  Z 
7Q2  POKE36877/0 

710  0ETQ$'IFQ*=1M,THEN?10 
730  RUN 
1000  PRINT"T 
1010  PRINT'S 
1328  PRINT" 

1030  PR I NT "k  THERE  RRE  3  REELS* 

1840  PRINT"RND  EACH  REEL  HRS  FOUR 
1O50  PRINT "SYMBOLS.* 
i860  PRINTS  YOU  CRN  STOP  ALL  THE 
1870  PRINT"REELS  THEN  EITHER  HOLD 
1080  PRINT "OR 'NUDGE  EACH  ONE.* 

1030  PRINT"  ra  YOU  START  WITH  5P  &» 

110S  PR I NT "EACH  GAME  COSTS  2P. 

1110  PRINT-’IMSFRESS  BfiR  TO  CONTINUE.” 

1120  GETfif  IFfl^1"  "THEN1120 
2000  PRINT"T 

2019  PRINT"*  THE  WINNING  PATTERNS* 

2020  PRINT"  ARE-* 

2030  PR I NT" k  SAME  SAME  SAME»5P* 

2040  PRINT"  SAME  SAME  ANY  =3PM 
2050  PRINT"  ANY  SAME  SAME® IP* 

2060  PR  TNT  "fa  THE  CONTROL  KEYS  RRE' 

RNY=STOP  REELS* 

N= NUDGE* 

H=HOLDW 

RNY=SPIN  RGRINM 
PRESS  BRR  TO  PLRY" 

THEN2120 


2970  PR  I NT" L 
2080  PRINT" 

2090  PRINT" 

2103  PRINT" 

2110  PRINT "8 
2120  GETflt :  IFR$> 

2130  RETURN 
7999  END 
3080  PRINT"OJ!KE 
OUT  OF  MONEY 
3801  F0KE36878/ 15 
8002  P0KE36879.'  24 
8805  PRINT‘'WMSORRVj  THRTS  THE  END 
9010  F0RN=1T012 
8015  READR : P0KE36375»  R 


CONORATULRT IONS"  'PRINT" JMfrGU' VE  BROKEN  THE  BANK" 'PRINT'1**  I'M 
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5020  FGRZ=iTO150 'NEXTZ 

8039  NEXTN 

8040  DRTRI35, 147, 135, 175, 175, 163, 183, 133, 131 , 135, 135, 135,27 
8160  RESTORE 

3110  FQRN=1T013 
8115  REflDR ; PGKE36876, fi 
3120  FORZ-1TO150 : NEXTZ 
8130  NEXTN 
8135  PRINT"!" 

8140  P0KE36875, 0 
8150  END 

3000  PCKE36876, 13 
3331  FOSE* i TO 18 
3062  PGKE36S73, 74 
361Q  FuEM— 208T 022£-Z*2 
3029  P0KE3S376,« 

3*336  NEXTN,  Z 

3635  F0KE36S76 ,6 

3636  P0KE36379,72 
3640  RETURN 

3506  REN - 

9510  REM 

3520  REM  M.KENDRLL 
3530  REM 

9540  REM  (<.)  1382 

9550  REM 

9560  REM - 


REVERSE 

In  this  brain-boiler,  the  computer  randomly  mixes  the  numbers  from  zero  to  nine, 
and  you  have  to  put  them  in  order  in  as  few7 reverses7  as  you  can.  I'll  explain  what  a 
'reverse'  is.  If  the  computer  had  generated  the  sequence  5924861703  and  entered  1 
in  response  to  the  question  "REVERSE  NUMBER?",  the  sequence  would  be  reprinted 
as  3071684295.  Entering  4  would  then  produce  3075924861 .  That  is,  the  digits  from 
position  four  to  the  end  would  be  reversed.  As  you  can  see  from  line  170,  the 
sequence  the  computer  is  looking  for  is  0123456789.  Get  the  numbers  into  that 
order,  and  the  game  is  over.  It  may  well  take  you  40  or  so  moves  to  order  the  digits, 
unless  you're  particularly  clever  -  or  lucky. 

IQ  REM  REVERSE 

20  M“1  *  X=0  ■■  m ="  "  PRINT" 3" 

30  FGRT=0TO9 

40  L^I NT < END <1 >* 10 > +48 

50  Q»1 

60  I FM I D*  <  R* ,  Q ,  1  5  ~CHRf  <  L  >  THEN40 
7y  IFCKT  THEHQwQ+1 :GOTO60 
80  R*-R*+CHR* ( L  > 

90  NEXT 

1 00  PR  I  NT 1 1 MHW1GVE  NO .  "  M  :  PR  I  NT  "  W" ;  fi * ;  " $T 
110  I HPlJT "KRE VERSE  NUMBER" ;  R :  I  FR<  1 0RR>9THEN  1 1 0 
120  £*='"’ 

130  F0RT~ 1 0T0RSTEP- 1 

i 40  b$=b$+m i m < m , t , n 

150  NEXTT 

1 60  H*=LEFT*  -1  m ,  R- 1  >  +B* 

170  01 23456789" THEN  190 

180  M*M+1 = GOTO 100 

190  PR  I  NT  "  XHISt'OU  DIB  IT!!” 

195  PR  I  NT”  M"  ft* 

200  PR I NT" WIT  TOOK "M" MOVES" 
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SEPULCHRE 

ORGAN 

Sounding  like  a  mournful  choir  in  full  cry  in  a  haunted  house,  this  program  lets  you 
play  the  bottom  row  of  keys  of  the  VIC  as  though  it  is  an  organ.  The  notes 
corresponding  to  the  keys  are: 

C  (Z),  D  (X),  E  (C),  F  (V),  G  (B),  A  (N),  B  (M),  C'  (,) 

The  note  you've  pressed  will  continue  until  you  press  another  key.  Touching  any 
other  key  from  those  marked  will  stop  thesound.  RUNSTOPwill,  of  course,  stop  the 
prog  ram. 

Here  is  TWINKLE,  TWINKLE  LITTLE  STAR: 

ZZ  BB  NN  B 
VV  CC  XX  Z 
BB  VV  CC  X 
BB  VV  CC  X 

ZZ  BB  NN  B  VV  CC  XX  Z 


10  REM  SEPULCHRE  ORGAN 
12  PRINT'S’1 
15  DIME<16>JC$a6) 

20  F0RR=1TG16 
30  RERDB<fl>:REflDC*<FO 
40  NEXTR 

50  DRTR135 ,  "Z’S  14?..  ”X'M53,  “C%  165,  "V",  1?5j  "B'M83j  "H",  191,  "M",  135..  ",  " 

55  DRTR225  j  "Z",22Bj  "X^Si;  "C”,232..  "VM..235..  "B",237,  "N",239J  "M"  1 240,  " ..  » 

60  P0KE36S78.*  15 
70  GETR$ 

80  F0RR=1TQ8 

90  IFfi*«C*<R>THENP0KE36876.B<R> : P0KE3G875, B<R> : P0KE3G374, B<R) : PDKE36876,  B<R+S> 
100  NEXTR 

110  IFR$=" . "THENO0TD150 

140  GOTO70 

150  POKE36376J0 

160  PGKE36875, 0 

170  P0KE36B74 1 & 

190  GOTO70 
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TRAFFIC  JAM 

There  are  two  versions  of  this  program.  The  first  uses  the  keyboard  to  control  your 
car  ("A" -up,  "Z"-down,  "/'-left  and  "/'-right)  while  the  second  uses  a  joystick. 

The  aim  ofthe  game  isto  drive  yourcar(a  red  asterisk)  from  the  to  pi  eft-hand  corner 
of  the  screen  to  the  car  park  (the  red  oval  in  the  bottom  right  hand  corner).  You  will 
be  asked  first  to  pick  a  skill  level,  from  one  to  nine.  One  is  the  hardest,  and  nine  the 
easiest.  A  number  of  cars  (coloured  diamonds)  will  appear  on  the  screen,  the 
number  of  cars  being  related  to  the  difficulty  level  you  chose.  The  carpark  will  flash 
off  and  on  for  a  few  seconds,  and  you'll  appear  in  the  top  left  hand  corner  to  make 
your  journey. 

You  can  only  score  if  you  make  ittothecar  park  without  hitting  any  ofthe  cars,  more 
and  more  of  which  appear  asthe  game  progresses.  Your  score  is  related  to  the  skill 
level  you  choose,  and  the  time  it  takes  you  to  drive  to  the  car  park.  The  keyboard 
version  only  allows  movement  up,  down,  left  and  right  while  the  joystick  version  of 
the  game  also  allows  diagonal  moves. 

10  REM  TRAFFIC  JRM 
15  REM  KEYBOARD  VERSION 
20  " 000000"  :HS*=0 

30  PRINT"?!1 
40  GO3UB9540 

1000  GETA$:  IFA$="  "THENA#»E$ 

1010  E~C : Q=S 

1 020  I F  A$= " . " THENS=S+ 1 = C-C+ 1 
1 ©30  I F  A$= - , " THEH8=S- 1 : C=C- 1 
1040  IFfl*s"fl"THEN3*S-22 : C=C-22 
1 050  I  FA$=  "  Z  "  THENS=S+22  :  C=C+22 
1070  W=PEEK<S? 

1075  I FW=S 1 THEN 20 40 

1030  IFW«102THENC*E : S-Q 

1090  I FW-90THEN2000 

1200  POKEEj 1 : REM  ERASE  WITH  WHITE 

1210  PQKEC  .•  2  :  POKES  .>  35 

1220  B$*H* 

1230  R=  I HT  C RND  <■. 0 > #458 >  +7704  :  R2-R+30720 
1240  W*PEEK<R> 

1250  I FW= 1 02THEH 1 230 

1 260  P0KE36878  .■  1 5 :  P0KE36875 ,  1 40+  <■.  R-7704  '>  /4 :  P0KE3687S ,  0  •-  P0KE3S875 , 0 
1 270  POKER: ,  96  :  POKERS ,  V  AL  < M I  <  Pf  ,  I  NT  <  RHD  <  0  >  *6>+ 1 ,  O  > 

1 2S0  FORO^ 1 TG2*G~ 1 : NEXT 
1500  GOTO 1000 
2000  REM  CRASH 

2010  PR  I  NT  "  MSB Mt'GU  HAVE  CRASHED 11 :  M*0 

2.020  PRINT" ME  ■■  "RI GHT$£.TI  $ ..  Z'j  "  SECONDS" 

2030  GOTO3000 

2040  PRINT"M»»IW0U  MADE  IT!!"M1«1 

2050  PGKE3Q88 1 , 1 

2060  PQKE38360..  1 

2070  QOTO2020 

3000  TV=VRL(TIfO 
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3003  8= I NT <  < 50-TV  > * 1 00  70 > #M 

3065  I F  S > H 8 THE HH  S = 3 

3907  PR  I  NT  "  MWaiSCORE  :  "  S 

30 1 6  PR  I  NT  "  1 DH  SCORE  =  "  H3 

3020  FORT*=  1TO200O  •  NEXT 

3030  GOTO30 

5900  PRINT"WW«MSKILL  LEVEL  <1  TO  3:'?" 

5010  GET  Z*:IF2$s=""THEN3010 
5020  G=VRL<2:f  ) 

5038  I  FG<  1  OR  COS1  THEN  50 1 0 
5040  PRINT'TJ" 

5050  RETURN 
9540  3=7703 
9550  C=38423 
9560  P*»"654320" 

9570  B$=" . " 

9580  GOSUB5000 

9590  FORZ=7680TG770 1 =POKEZ, 102= POKEZ+30720, VRL<MID$<P$ , INT<RND<0>#6>+1 , 1>> : NEXT 
9600  F0RZ=8164T08185  POKEZ.-  102  :  POKEZ+30720,  VAL<t1ID$<P*,  INT<RND<0)*6>+ 1  >  1>>  NEXT 
9620  FORZ=7680TO8 1 64STEP22  :  POKE 2  ..  102  =  POKEZ+30720 , 0 :  POKEZ+21 , 102  :  POKEZ+30741 ,  0  ;  NE 
XT 

9670  FGRU=1TQ25-2#G 

9680  R=INTCRNB<0>*458>+7?04 :R2=R+30720 
9685  P0KE36879,  INT<RND<0>#127>+1 
9690  W«PEEKCRJ 
9700  I  FUN 1 02THEN96S0 

9710  PGKE3687S,  15 = P0KE36875, 140+CR-7704V4 :  PQKE36378,  0 ;  P0KE36875,  0 
.9720  POKER,  90  =  P0KER2,  VALCMID«P$,  INT<RNB<0>#6>+1 , 1  >> 

9730  NEXT 

9733  P0KE36879.-  26 

9735  FORL«1TO50 

9736  POKES  162, 81 

9737  PGKE38882, 0 

9738  FGRT= 1T01 0 : NEXT 

9739  POKE-3838.2 , 5 

9740  NEXT 

9745  FORT=lTO1000 : NEXT 
9750  Tlt=,,000000" 

9780  PGKE38882, 2 
9999  RETURN 


10  REM  TRAFFIC  JAM  CJOVSTICK  VERSION) 

15  BIMJS<2,2> 

20  HS=0 

30  RESTORE = G0SUB9499 

510  PGKEDB, 1 27 : S3=- C  <  PEEK <  PB  ) AND 1 28 >  =0 ) : POKEDD , 255 

520  P»PEEK<PA> :S1=-<<PAND8>*0) = 82=< <PAHB16>=0> = S0=< <PAHB4>=0> 

530  FR=-C CPAHB32?=0>  =  X=S2+S3 : V=S0+S 1 

1010  E=C : GN3 

1020  8-S+JSCX+1jV+1> 

1025  C=C+JS<X+1,V+1> 

1070  UNPEEKCS) 

1075  I FUNS 1  THEN 2040 

1080  I FIN 1 02THEHC=E : S=Q 

1090  IFW=90THEH2000 

1200  PQKEE, 1 : REM  ERASE  WITH  WHITE 

1210  POKED, 2= POKES, 35 

1230  R=IHT<RHB<0)*:458>+7704 : R2=R+3©720 

1240  W=PEEK<R> 
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1250  I FU“ 1 02THEH 1 230 

1260  POKE 36878  .•  15  =  P0KE36875,  140+<R-7704>/4  :  P0KE36878 . 0  :  POKE 368 7-5,  0 
1 270  POKER ,  90  :  P0KER2  .  VRL  <  MIDf  C  P$ ,  I  NT  <  RND  <  0  >  *6  >  + 1  .  1 )  > 

1 280  FORO= 1 T02#G- 1 : NEXT 
1500  GGTG510 
2000  REM  CRRSH 

2610  PRINT "JSMiWt’OU  HAVE  CRASHED”  : N=0 
2020  GOTO2070 

2040  FRINT^MOTMfi'OU  MADE  IT  !  !  :  M-l 
2050  POKES 8881 1 
206©  FOKE38860. 1 

2070  PR  I  NT  "  >IflJi*Wr  I  ME  ■  "RIGHWTI$  .-2  )  "  SECONDS" 

2080  S~I NT  < < 50- V AL  <  T I $ >  > *  1 2345/0  > *M 
2096  IFS>HSTHENHS=S 
2100  PRINT" We* M5C0RE  =  " S 
2105  PRINT" MGBBH I GH3C0RE : ”HS 
2110  PORT  = 1 TO30Q0 : NEXT 
2120  GOTO30 

5000  PRINT"W«emaLL  LEVEL  Cl  TO  9>?" 

501O  GET  IFZ*s",,THEN5010 
5020  G=VALCZ$> 

5030  IFGC1 ORO9THEN501 0 
5040  PRINT" rJ" 

5050  RETURN 
9490  PR I NT" 3" 

9500  REM INITIALISE 

95 1 0  P0KE37 139.0: DD=37 134  =  PA=37 1 37 : PE=37 1 52 

9520  FORZ=0TO2 : FOR J=0TO2  =  READ JS < J ,£> : NEXT J , Z 

9530  DATA-23 .  -22 .  -2 1  - 1  .*  0  .•  1 . 2 1  .<  22 ..  23 

9540  8*7703 

9550  C*38423 

9560  P$=" 654320" 

9589  GO SUBS 000 

9590  FORZ»7680TO7701 : POKEZ, 1 02 : POKE2+30720 . VflL C H I  D$  C Ft , IHT<RNDC0>*6>+1 , 1 >  > : NEXT 
9600  F0RZ=8 164TQ8 1 85 : POKEZ .■  102 : POKEZ+30720, VHL<MID$<P* , INT<RNDC0)#6>  +  1. 1>>  :  NEXT 
9620  FGRZ=7680TO81 64STEP22 : POKEZ , 102 : POKE2+30720 ■ 0 : POKEZ+21 , 102 : POKEZ+30741 ,  O : ME 
XT 

9670  FGRU-1T025-2#G 

9680  R=IHTCRHBC0>*458>+7704 : R2-R+30720 
9685  POKES 68 7 9. INTCRNBC0>*127>+1 
9690  M=*PEEKCR> 

9700  I FN*=  1 02THEH96S0 

9710  P0KE36878. 15 : P0KE36375. 140+<R-?704>/4  =  P0KE36Q78. 0 : P0KE36875, 0 
9720  POKER. 90: PGKER2, VRLCMIB*CP$. INTCRNDC0>*6>  +  1 . l> > 

9730  NEXT 

9733  F0KE36879.26 

9735  FORL=1TO50 

9736  POKES 162.  Si 

9737  POKE38882.0 

9738  FORT  * 1 TO 1 0 : NEXT 

9739  P0KE38882.5 

9740  NEXT 

9745  FORT* 1  TO 1000: NEXT 
9750  T I $="000000" 

9780  P0KE33882.2 
9999  RETURN 
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LONG  JOHN  SILVER 

This  is  very  simple  program  which  you  can  use  as  the  core  of  any  program  when 
you  want  to  hide  something  on  a  grid.  In  this  case  the  grid  is  10x  10,  and  after  each 
guess  you  are  given  feedback  as  to  where  the  gold  is  hidden. 

Structure  of  the  program 

Lines  10  and  20:  ‘Hide’  the  gold. 

Line  30:  Loop  to  count  guesss 

Line  60:  Accepts  player  guess,  strips  it  to  two  numbers  to  ‘process’  it. 

Lines  130  to  190:  Feedback  on  the  accuracy  of  the  guess. 

Lines  210  to  220:  End  of  game  if  not  guessed. 

Lines  230  to  260:  End  if  the  treasure  is  found. 

Suggestions  for  improvement 

•  Change  the  size  and  shape  (triangular?)  of  the  grid. 

•  Add  some  ambiguity  to  the  feedback. 

•  Use  sound  for  the  feedback  (high  notes  for  close,  low  notes  for  far  away). 

•  Add  a  sound  routine  to  the  win  routine. 


7  POKE  36879,  15 

8  PR  I  NT  "T 

10  fi*INTCRND<l>*10>+l 
20  B-INT<RND<1)M0>+1 
30  FORZ=1TO10 
35  PRINrir  PRINT 
40  PR I NT "YOU  HAVE  ONLY" 

45  PRIHT10-Z;  "SISECONDS  LEFT!" 

50  PRINFIfrlHERE  IS  THE  GOLD"; 

60  INPUTM : C«INT (M/10) : D=N-C*10 
70  IFR~C  AND  B=D  THEN  230 
130  PRINT: PRINT" IT  is  NOT  ftT'UCJD 
135  PRINT 

140  PRINT"HERE  IS  fl  CLUE:-" 

150  PRINT'VTRY  TO  THE  ", 

160  IF  fi>C  THEN  PRINT"*30UTH,TJ 

170  IF  R<C  THEN  PRINT"HN0RTH5TJ 

180  IF  B<D  THEN  PRINTl,IWEST!il" 

190  IF  B>D  THEN  PRINT"  aERSTH" 

200  NEXTZ 

210  PRINT  PR I NT "OTI ME  IS  UP" 

215  PRINT", WHE  GOLD  WAS  RT”;R;B 
220  END 

230  PRINT"U«iLa_  BOUDINS  8111" 
240  8“  RNDO  >*10000 
245  PRINT"ifi" 

250  PRINT"Y0U  FOUND  £MNT<S/Z); 
255  F0RT=1T0555 :  NEl'TT 
260  GOTO  250 
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BREAKOUT 

This  version  of  one  of  the  original  computer  games  makes  good  use  of  the  colour 
and  music  capabilities  of  the  VIC.  It  is  very  simple  to  play.  You  have  nine  balls  atthe 
start  of  the  game,  and  so  long  as  you  manage  to  bounce  the  ball  off  your  slide  at  the 
bottom  of  the  screen,  the  ball  will  stay  in  play. 

Each  time  you  miss  the  ball,  your  'ball  count'  {top  left  hand  corner  of  screen)  is 
reduced  by  one.  Each  time  the  ball  count  is  changed,  your  score  is  changed  as  well. 
You  get  a  score  every  time  you  destory  one  of  the  coloured  bricks  at  the  top  of  the 
screen. 


You  control  the  action  of  the  slide  with  "Z"  (moves  if  left)  and  "M"  {moves  it  right). 


1  REM  BREAKOUT 
5  P0KE36878,15 
10  GOTO40 
20  X=-X 

22  P0KE36876; 200 

29  RETURN 

30  V=-Y 

32  POKE36876.220 

39  RETURN 

40  PRINT"3" 

50  SC=0 ; 2=9 

60  FOR J=23T0 1 08STEP  3 
70  POKE  7680+ J, 102 
75  POKE38400+J, (INT<RND<1)#8) ) 

80  NEXT 
90  F=10 
110  X=-3:Y=1 
120  fl«20; M=fi 
130  B"1 :N=B 

160  IFFK0  THEN  GOSUB  20 
162  IF  fl>20  THEN  GOSUB2000 
165  fl“fl+X 

180  IFBC1  OR  B>20  THEN  OOSUB  30 
185  B=B+V 

200  IF  PEEK<7680+22#fi+B>=102  THEN  GOSUB  5000 

300  P0KE8163+F.32 

310  POKE  8165+F; 32 

320  POKE  8164+F> 102 

330  POKE38884+F.0 

340  GETR$ 

350  IF  THEN  F-F-l 

360  IF  THEN  F=F+1 

400  POKE  7680+22*M+N,32 
500  POKE  ?680+22*R+B,42 
505  POKE38400+22*R+B,0 
510  POKE36876.0 
910  M=R  •'  N~B 
920  GOTO160 
2000  G0SUB28 

2005  IF  RBS<F-BK2  THEN  RETURN 
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2010  Z-Z-l 

2015  PRINT”»BALL'’Z 

2020  FORT=1TQ20 

2022  P0KE36876, 128+  4#T:POK£36876,0 

2023  NEXT 

2025  IFZ=0  THEN  6000 
2030  RETURN 

5000  POKE  7680+22*8+5,32 

5001  POKE36876,0 

5002  FORK- 1  TO 10 

5003  P0KE36877, 255-10*K : P0KE36877 , 0 

5004  NEXT 

5005  SC-SC+367 

5010  PRINT,,»BflLL"Z,,!!<  SCORE”SC 
5020  GOSUB20 
5500  RETURN 
6000  POKE36876,0 
6005  PRINT"»iS  END  " 

6010  GOTO6010 


NIGHT  ON  A  WILD 
MOUNTAIN 


This  program  is  perhaps  best  saved  for  those  people  who  say:  “It's  very  nice  having 
a  personal  computer,  but  what  can  you  do  with  it?"  Once  having  seen  (and  heard) 
this  program,  they  may  well  be  convinced  that  perhaps  they  should  not  have  asked. 
The  music  is  wild  and  random,  as  befits  the  title,  although  the  graphics  have 
symmetry  and  order.  Enterthisprogramjustasitis  listed  here,  then  try  and  work  on 
it  to  bring  some  order  into  the  music. 


5  PRINT” T 

10  REM  NIGHT  ON  fl  WILD  MOUNTAIN 
12  REM  < RANDOM  MUSIC, PAT TERNS) 

15  M'INT<RND(1)#8) 

20  A=INT(RND<1)*18> 

30  B"IHT<RND< 0*18) 

40  C=79U 
50  D=38631 

60  POKEC+A, 102 • POKED+A , M 
70  PQKEC-A ,  1 02 : POKED-fl ,  M 
80  POKEC+ 1 1 *fl+B ,102^  POKED+ 1 1 *A+B , M 
90  POKEC- H  *A-B, 102  =  POKED- 1 1  *A-B ,  M 
97  IF  RND<1»0.3  THEN  120 

100  P0KE36879, 16#( INT (RMD< 1 )#16) HINT <RND< 1 )#8)+8 

120  P0KE36878, INT <RND< 1 )#15)+1 

130  P0KE36874, 1NT<RND< 1 )*128>+128 

140  POKE36075, INT<RND< 1 >#128>+128 

150  P0KE36876, INT(RND<0#128>+i28 

1 80  P0KE36877 , INT < RND<1 ) * 128 ) +128 

195  IFRND< 1 )>. 1  THEH205 

200  POKE36878,0 

205  IFRNDC 1 )>,3  THEN215 

210  POKE36874,0 


215  IFRND<1)>.3  THEN230 

228  POKE36875,0 

230  F0RT=1T0RND( 1 )#20  +5 1  NEXT 

235  IFRND<1)>.3  THEN250 

240  POKE3687?,0 

250  POKE36876,0 

500  GOTO10 
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SPACE  FIGHTER 


You  pilot  your  V-wing  space  craft  across  the  void,  trying  to  hit  the  numbers  which 
appear  at  random  on  the  screen.  You  must  be  quick,  for  they  only  stay  there  a  short 
time.  Your  score  is  related  to  the  number  you  run  over.  The  sound  effects  in  this 
program,  and  the  appearance  of  the  V-wing,  are  very  effective,  and  you  may  well 
wish  to  use  these  in  other  space  fight  programs  you  write. 

As  usual,  you  control  your  ship  with  "A"  (up),  "Z"  (down),  (left)  and  (right). 

10  REM  SPACE  FIGHTER 
15  H3=0 
20  RESTORE 
25  G0SUB949Q 

1000  GETR*: I Ffl$= " " THENfif *B$ 

1005  PR  I  NT  "  He*» (SCORE  "  SC 

1010  E»C;Q=S: V1“V 

1020  IFR$«" . "THENS-S+l : C=C+1 : V*62 

1030  I  Ffi$=  " , "  THENS=*8~ 1 :  OC- 1  =  V*68 

1 040  I FR$= " R" THENS=S— 22 • C=C-22 : V~ 1 

1 ©50  I FfW* "2 " THENS=S+22 : C=C+22 = V=22 

1060  H=PEEK<S> 

1070  I  FW=  1 02THENC-E :  S-&.  ■  V=V  1 
1075  F=0 

1 080  I FW>48THEN IFW<S8THENSC=SC+W#?9 1 : F= 1 : P0KE36878 , 15 : P0KE36877 , 8 

1086  IFF*  1  THENFOP.T-  135TO230  :  POKE 3 687 5 ,  T  =  NEXT  ■  PQKF.36S75 0 

1087  P0KE3687S *  7 : P0KE36S77, 2*R8C<Rf >+70 

1 090  I FRHD  '■  6  >  > .  93THEHP0KEC  <  CC  >  ,  0  :  POKEB  <.  CC  >  ,  43  :  CC=CC+ 1  :  POKES  <  CC  >  -■  R  <  CC  >  :  POKEC  C  CC  > , 
7 

1100  IFCC=55THEH3000 

1200  POKEE , 8 

1210  POKEC, POKES,  V 

1220 

1230  GOTO 1000 

3000  PRINT,,*MW*iafnME  IS  UP" 

3010  PR  I HT  "  BDSMIScfr'OU  SCORED”  SC 

3020  I FHS<SCTHENHS=SC 

3030  PRINT,,M#MiHIGH  SCORE :  " HS 

3035  P0KE36878 , 0 

3046  FORT* 1 TO 3000 : NEXT 

305©  GOTO20 

9490  PR I NT"  IT 

9540  3=7726 

9550  C*3S446 

9570 

9590  FORZ*7702TO?723 : POKES, 102 : POKE2+30720, 7 : NEXT 
9600  F0RS=8 1 64T08 1 85  =  POKES , 1 02 : POKEZ+30720 , 7 : NEXT 

9620  FORS=7680TO8 1 64STEP22 ■ POKES,  102 : FQKES+30720, 7 : POKEZ+21 , 10£: POKES+30741 ,7 :  HE 
XT 

9625  IFHSO0THEN9640 
963©  D I MR <  55  > , B  <  55 > , C< 55 > 

9640  FQR2=1TG55 

9650  R<Z>=INT<RND<0>*9>+49 
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9660  B  < Z > =7704+ 1 NT CRND < 0 > *458 > 

9665  C<<7>=B<2>+30720 

9670  irPEEK<B<Z>>“102THEN96S0 

9680  NEXT 

9690  CC=1 

9700  V=60 

9710  SC-0- IFHS=0THEHHS=1 
9720  POKE-36879,  10 
9999  RETURN 


NOUGHTS  AND 


You  are  the  red  filled-in  circles,  the  computer  the  inverse  blue  crosses,  you  just 
touch  the  number  where  you  want  to  place  a  piece,  and  the  VIC  will  do  the  rest.  The 
computer  will  ignore  any  opening  move  which  is  not  the  centre  square  (5).  This 
program  is  based  on  one  written  by  Stuart  Roberts. 

10  REM  NOUGHTS  RHD  CROSSES 

12  REM 

15  REM  AFTER  PROGRAM  BY  STUART  ROBERTS 

16  REM 

20  FGRA=1T09 :  B(A5“fl :  NEXT 
39  PRIHT'TJS" 

50  E=0 ; Q=0 
60  N=0 
70  X=4 

30  PR  I  NT"  MOT1 
90  F0RA=1T09 

100  I Ffl«=XTHENX“H+3 :  PRINT  ; PRINT 
110  IFB<fi>=0THEN320 
120  IFB<R)=10THEH350 
130  PRINTB<fl)  ; " 

140  NEXT 

145  I FB  <  3 ) » 1 0ANDB <6  > =  1 0AHDB <9? = 1 0THEHE-8 : GOTO 1 60 

146  IFB(7)»1 0ANDB  <8  >  ® 1 0ANBB <9>=l 0THENE=8  =  GOTO 1 60 
150  IFH=1THEN380 

160  IFE=8THEHPRIHT- PRINTS  PRINT”  I  WIN” : GOTO730 

170  IFQ=5THEHPRIHT  :  PRINT  : PRINT”  IT'S  fl  DRAW”  : GOT 0730 

180  PR  I  NT"  Midi OUR  MOVE?” 

185  GETA$: I FA^~" "THEH185 
187  Z»VAL<R$:> 

190  I FB  <  Z  OZTHEN 1 85 

200  Q=Q+1 

210  I  FZ=  1 1 THEHB <5 )  =  1 0 : GOTQ60 

220  N=1 ; B<Z)=0 

230  GOTO70 

240  FGR.A=CTOD 

250  IFB<A)bsATHEHB<A>s=10 

260  A*flvF 
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270  NEXT 

200  GOTO60 

290  I FB ( 3  >  =3THEN20 

300  B<D)=10 

310  GOTO60 

320  PRINT"^  •  3"; 

330  P<R>«1 

340  GOTO 140 

330  PR  I NT "S  3KH  IT  i 

360  P<;R)=4 

370  GOTO 140 

380  G=»0 

390  C=1 : D=9 : F=3 
400  GOSUB580 
410  C=3 : D=? : F= 1 
420  GO SUBS 80 
430  D=9 • F=£ 

440  GO SUB 580 

450  C=2 : B— 8 

460  GGSUB530 

470  I>1  -]>7 

480  GOSUB580 

490  B=3 : F— 0 

500  GOSUB580 

510  C=4  -ri«6 

520  GOSUB580 

53©  C~? - D-9 

540  GOSUB580 

330  0*8+1 

560  1FG=5THEH60 

570  GOTO390 

530  E~0 

390  FORR=CTOB 

600  E=E+P<R> :R=R+F 

610  NEXTR 

620  IFE=3THEN720 

630  IFG=0THENRETURN 

649  IFE=3THEN240 

630  I F  G=  1 THENRETURH 

660  IFE=2THEH240 

670  I FG=2THENRETURN 

630  IFE=5THEN240 

690  I FG-3THE NRETUR N 

700  I FE= 1 ORE=4THEN290 

710  RETURN 

720  PRINT: PRINT: PRINT”  VOU  WIN" 

730  FGRTM TO3000 ■ NEXT 
740  RUN 
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MASTERMIND 

The  game  Mastermind  is  copyright  Invicta,  who  sell  a  number  of  versions  of  the 
gam  which  use  coloured  pegs,  Invicta  bought  the  rights  to  the  game  from  an 
amateur  mathematician,  Mordechai  Meirovich,  in  1971,  and  a  couple  of  years  after 
they  first  marketed  it,  had  a  worldwide  best  selling  game. 

The  game  has  been  known  in  England  for  centuries  as  Bulls  and  Cows.  Another 
popular  version  is  called  Codebreaker. 

The  principle  is  simple.  The  VIC  20  picks  a  three-digit  code  (such  as  259),  using  the 
number  1  to  9.  Zero  is  not  used,  and  no  digit  is  used  more  than  once  in  the  code  (so 
117, 494  or  666  are  im  possible),  you  have  to  guess  the  number  in  1 0  guesses  or  less. 
The  feedback  from  your  VIC  is  fairly  easy  to  interpret.  After  each  guess  you  are  told 
YOU  SCORED  2  BLACKS  and  0  WHITES,  In  which  a  'black'  is  a  correct  digit  in  the 
correct  place  in  the  three-digit  code,  and  a  white  is  a  digit  which  does  appear  in  the 
code,  but  not  where  you  put  it  in  your  guess.  The  computer  prints  out  the  answer  if 
you  fail  to  get  it  within  10  guesses 

10  PRINT"T 
30  F0RZ~1T03 
40  fi < Z > ~ I NT < RND < 1 > #9) + 1 

59  NEXTZ 

60  IFfi<i)”fl<2)0R  Ra>*fl(3)0R  R<2)=fl<3>  THEN30 
70  D“100#fla>  +  10#R<2)+fl<3) 

80  FGRC-1TO10 
90  PR I NT "GUESS  ";C; 

95  INPUT!*! 

100  Ba>*INTW100> 

110  E  < 2  >  ~  I NT < ( X- 1 00#B <1>>/10> 

120  B<3)*X-100#B<1)-10#B<2) 

130  IFB=X  THEN360 

150  N-0 : (4*0 

170  FOR  E=1  TO  3 

180  IFfKEJOBCE)  THEN  210 

198  N*N+1 

206  flCE)=0 

210  ne:  :te 

226  F0RF*1T03 
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230  IFfKF>*0  THEN  280 

248  FOR  E~1  TO  3 

258  IFBCF>Ofl<E)  THEN  270 

260  W=W+1 

270  NEHTE 

280  HEMTF 

290  fl<l>“INTCD/100) 

300  fl<2)=INT(<D-100#R(l))/10) 

3 1 0  fi (3 >=D- 1 00*R (1 >- 10#R<  2  > 

320  PRINT"WOU  3SCOREB" 

325  PRINT" N.:  "BLACKS  &Si"iW;  ’WHITESS" 

330  NEXTC 

340  PRINT,,*IV  NUMBER  WAS",  PKl) JRC2>;flc3> 

350  END 

360  PR  I  NT "  fC-ONGRRTULRT IONS " 

370  PRINT"iiNOIJ  GOT  IT  IN";C 
380  END 

COLOURMIND 

This,  as  you've  probably  guessed,  is  a  colour  version  of  Mastermind.  You  have  to 
guess  the  computer's  pattern  of  four  differently-coloured  blobs.  You  indicate  your 
choice  of  colours  by  pressing  the  colour  keys  on  the  VIC. 

The  colours  will  first  print  up  as  the  numbers  you  pressed,  then  changed  into  blobs 
coloured  to  your  choice.  Following  the  blobs  will  be  your  score,  the  first  number 
being  the  correct  colour  in  the  correct  position,  the  second  the  correct  colour  in  the 
wrong  position.  You'll  get  ten  tries  to  guess  the  numbers.  Note  that  no  colour  is 
repeated, within  the  set  of  blobs. 

If  you're  used  to  playing  Mastermind  with  coloured  pegs,  you'll  quickly  appreciate 
that  this  is  much  closer  to  the  Invicta  game  than  are  computer  versions  which  use 
numbers.  At  the  end  of  a  game,  press  any  key  to  get  a  new  game,  or  'S'  to  stop. 

10  REM  COLOURMIND 
1 5  PR  1  NT  "  ZV'  ■  PR  I  NT  •  PR  I  NT 
20  GOSUB450 

30  C  <  1  >  ■  I  NT  <  RNH  c:  :l.  >  *6  >  +  3 

40  C C 2 >  =  X NT  < RND <  1  >  MS )  +3 
5©  J«1 
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f  B  i  r  J'CZ, . 1  THEN J= J+ 1  :  GOTC 

30  I F2<4THENZ«Z+ 1 : G0T04G 
108  FQEH«1TO10:  INPUTfl 
138  FOEZ*5  1 T04 

140  G<2>*fi . 10*INT<(V10> 

15©  R-:[NT(R/10) 

16©  NEXT 

165  G OS UBS 1 0 

1 70  B«0  :  U1S20 

190  FORZ® 1 T04 

200  I FC  <  2  >  OG  <  2  >  THEN230 

210  G <  Z  > w0 

220  B»B+1 

230  NEXT 

24©  FGRZ«1TQ4 

250  I FG  < 2 > “0THEN30© 

260  F0RJ*1T04 

270  I  FC  <  Z  >  OG  <  J  >  T HENS 30 


320  PRINT"  -  lir'B"  RSI" W 

378  I FB" . 4THEN1000 

380  HEXTH 
3310  GOTO  10 10 
440  END 

450  m**" 

460  F0RB-3TD8 
47B  PRINTMID*<fl$ , B, 1 >  ;  B;  "i 
475  I FB«5THENPR I NT  ^ 

48 W  HEX  \ 

430  PR  I  NT  "  B"  :  PR  I  NT  o4l/ 
500  RETURN  f  JW 

310  PRINT”  IT ■  f 

315  FDRZ-4T0  :l  STEP . 1 

520  PR  I  NTI’I  I ;n <  f:|$ .»  C<2>  ,  1 )  .<  11 


530  NEXT 

550  RETURN 

1000  PRINT" WOU 

GUESSED  IT! 

1010  PRINVMTHE 

CODE  WAS  ••  " 

1015  PR  I  NT  "  Ml" Tf: 

1BC5); 

1020  F0RZ-4T0181 

"EP-1 

1030  PRINTMID$<F 

1040  NEXT 

1050  GETfi# :  t  FRJta 

>" “THEN 1850 

1060  I  FFl$*  "  S  "  THE 

SNEND 

1070  RIJN 

This  game  is  simplicity  itself.  You  choose  your  'victim',  a  number  from  one  to  six, 
and  then  sit  back  and  watch  the  Victim  race  get  underway. 


Lines  15  and  55  are  interesting.  They  allow  the  VIC  to  assign  a  different  colour  to 
each  number,  but  the  same  colour  to  each  number  when  it  is  printed.  You'll  see 
what  I  mean  when  you  run  it.  The  sound  routine,  staring  at  line  1000,  may  well 
benefit  from  your  programming  skills. 

5  P0KE36379, 8 
10  REM  VICTIM 

12  PRINT"T  :  PRINT : PRINT : PRINT :  PRINT : PRINT : PRINT 
15 

29  PRINT  11  NAME  VOUR  VICTIM", , ,, ,, , (1  TO  6)"; 

30  INPUTW 

35  I FW<1 0RW>6  THEN30 
40  FOR J*1TO6:B(J)*0- NEXT 
50  PR1NT"T  :REM  CLEAR  SCREEN 
52  PR 1 NT" S" : REM  HOME 

54  FORM* 1T06 

55  C$=MID$CA*,M,1) 

60  PRINT  TflB(B(M))iC$  ;M 
65  GOSUB1000 
70  PRINT 

80  BCM)«B(M)+INT (RND<  D+.5) 

90  1FB(M»18THEN120 
100  NEXT 
110  G0T052 
120  FQR2*MT0B 
130  PRINT 
140  NEXT 

150  PRINT" W  END  OF  RACE 

160  PRINT 

170  PRINT"  NOTHE  WINNER  1S"M 

180  I FW-MTHENPR 1  NT 11 IRND  VOU  BACKED  IT! ! " :  PRINT" WELL  DONE" 
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195  PRINT 

190  IFWOP1THENPRINT"!  BUT  VOU  BACKED "W : PRINT : PRINT”®  BAD  LUCK" 

200  PRINT 

210  FOR J- 1 T0800 : NEXT 

229  PRINT"  PRESS  ANV  KEV  TO" 

230  PRINT"!*  START" 

240  PR  I NT" S  A  NEW  RACE" 

259  GEm 

260  IFVf=" "THEN250 
270  RUN 

1000  P0KE36979/ 15 
1010  FORQ=1TO  R(M> 

1020  P0KE36876, 180+INT<RND< 1)*60) 

1030  NEXTQ 
1040  POKE3687S.0 
1078  RETURN 

MOTORCYCLE 

JUMP 

You  are  Evil  K.,  world  champion  stunt  rider,  and  your  task  in  this  graphic  game  on 
the  VIC  20  is  to  jump  over  a  number  of  red  London  buses.  Each  time  you  succeed,  a 
new  bus  is  added  to  the  ones  you  must  leap. 


When  you  run  the  program,  you'll  be  told  the  angle  of  the  ramp,  and  the  number  of 
buses  you  must  jump.  You  enterthe  speed  at  which  you  wish  to  leave  the  ramp  (we 
suggest  you  start  off  between  34  and  40  miles  per  hour)  and  you'll  see,  and  hear, 
your  motorbike  spin  up  over  the  ramp,  and  -  hopefully  -  over  the  buses.  If  you 
succeed,  the  ramp  will  be  raised,  and  the  number  of  buses  will  be  increased. 

Because  the  angle  of  the  ramp  affects  the  distance  you  can  clear,  and  because  this 
program  uses  an  approximation  to  genuine  formulae  to  work  out  if  you  would  clear 
the  buses  or  note  given  a  particular  take-off  speed  on  a  ramp  of  that  angle,  you'll 
find  your  interest  in  this  program  will  remain  high,  no  matter  how  many  times  you 
play  it.  There  is  no  way,  for  example,  to  know  that  if  there  are  four  buses,  a  speed  of 
42  mph  will  always  clear  them.  It  depends  on  the  angle  of  the  ramp. 

If  you  use  too  much  acceleration,  you'll  flip  upside  down.  Too  little,  and  you'll  crash. 
Far  too  little,  and  the  program  will  tell  you  that  you've 'bing  led'!  If  you  manage  to 
clear  eleven  buses,  you'll  be  declared  The  Champ'. 
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10  REM  MOTORCYCLE  JUMP 
12  POKE  36879 > 24 
15  PRINT "73"  :  IJ=7 
20  OOSUB20G0 ; REM  VARIABLES 
30  GQSUB3000 : REM  DISPLAY 
100  GOSIJB 1G0Q:  REM  CALCULATE 
105  A$»M SINGLED!  " 

1 18  I  FABS<F-L»5THENR*-"  CRASHED" 

120  I  FF>=L AH DF =<L+ 1 5  THENfl-t-  "  SUCCESS " 

130  IFF>L+15THENR$*" LANDED  UPSIDE  DOWN" 

140  IJ=1 =  GO  SUB  3G  00 
1 45  L  =L+ 1 0  ;  H«H+ 1  NT  C  RHB  C 1  >*.3+ 1  > 

147  E=B+1 : I FE=1 1THEN5000 : REM  CHAMPION 

200  GOTO 1S0 

300  REM  SOUND  FX 

318  PQKE36877,220 

326  P0KE36878, K/3 

330  RETURN 

360  P0KE36877 .« 240 

370  P0KE36878 1 1 . 7 #Z 

380  RETURN 

1000  PRIHT"SH!RAMP  >"N" DEGREES" 

1010  PRINP'WTHERE  ARE "B" BUSES" 

1020  PRINT"MTHIS  IS  ATTEMPT  "A 
1040  INPUT,,MSPEED";  V:  I F  VO0  THEN  1 04  0 
1 045  FORK* 1 TO500 : NEXT 
1050  R.-fl+l:E*CV#528V3G0 

1 060  F=  <  E*C08  <  H  >  >  W.  <  <  E*S  I N  <  N  >  >  /32 . 2  >  :  F= RBS  (  Fit 
1070  RETURN 

200O  L«I0:N=25:B«I=A=1 
2030  RETURN 
3000  PR  I  NT  " 

3810  FGRZ=1T0E 

3020  PRINT  "IS!  «"  i 

3030  NEXT: PRINT 

3040  IFU=7THENRETURN 

3050  POKE 7 9 44 ,12?: POKE 386 64 ,  4 

3060  FORK* 1 TO 5G : G0SUB3 1 0 : NEXT 

3070  P0KE33664, 1 

3080  W*792 1 : W 1 =3864 1 

3090  F0R3*lT0B+4 

3095  I  F4Ht  I  NT  C  ZX4  >  *ZTHENW*W-23 :  N 1  *W  1  -23 

310.0  POKEW+2,  127 

3200  POKEW1+Z/4 

3210  FORK= 1 TOZ : GGSUB360 : NEXT 

3220  POKEW1+Z j 1 

3300  FORK* ITO 10: NEXT 

3310  NEXTZ 

3330  IFLEFT$<fi$,  1X>"S"THEN4000 

3350  FQRZ*B+4TQB+8 

3360  W=W+23 : W 1*W 1 +23 

3370  POKEU+Z, 127 

3380  POKEW1+Z, 4 

3390  FORK*1TO20+Z 

3400  NEXT 

3410  POKEWl+Z,  1 

3420  NEXTZ 

343G  P0KE36873,  0 

3450  RETURN 

4000  FORK- IT 020  =  P0KE36879,  I  NT  <  16=fRHD<  1  >+2+RND<  1  >*8>  :  GGSUE320 :  NEXT 
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4010  PR IHT" WWGH  HO,  VOU'VE" 

4020  PR  I  NT1' W"  fl-t 

4022  POKE 36 87 7 , 230 

4023  FORT= 1T0 160 = P0KE3687S , RHD < 1 )  *13+ 1 
403O  NEXT 

4033  F0KE36878, O 
4O40  GOTO4040 

3000  FORK=1TO20 : P0KE36979, INK 1 6*RND< 1 > +2+RND < 1 >*8> : NEXT 

56 1 0  P0KE366 79 , 25 

50 1 5  FORT = 1 TO50 : NEXT 

502O  PR  I  NT  "  MflVOU  ''RE  THE  CHRMP !  !  " 

5030  OOTO5000 

6080  REMST ART  WITH  fl ROUND  34-40 

6O10  REN  TOO  LITTLE  ACCELERATION  RND  VOU  CRASH 

6020  REN  TOO  MUCH  RND  VOU  FLIP  UPSIDE  DOWN 


MONZA 

Monza  isa  mind-reading  mathematical  wizard.  You  first  thinkof  a  number  between 
one  and  63.  Monza  displays  a  series  of  numbers  on  the  screen,  and  you  press  'Y'  if 
your  number  is  among  those  displayed,  'N'  if  it  is  not.  After  a  number  of  screenfulls 
of  numbers  have  been  shown,  with  suitably  magical  sounds,  Monza  will  tell  you  the 
number  you  though  of.  This  makes  a  good  demonstration  program  to  show  the  VIC 
off  to  your  friends. 


10  REM  NGN 2 ft  .*  NflTHENftTICftL  WIZARD 
15  B^'OTS" 

20  X« ■ 5 : N«0 


30 


P0KE36879/25 


40  PR I NT " I NK  OF  ft  NUMBER" 

45  PR I NT "BETWEEN  1  AND  63." 

50  PRINT" Mill  WILL  SHOW  YOU  FIVE" 
55  PR I NT "SCREENFULLS  OF" 

60  PRINT  "NUMBERS.  IF  YOUR" 

65  PR I NT "NUNEER  IS  ON  THE" 

70  PR  I  NT  "SCREEN.-  PRESS  /Y/  TO" 

60  PR I NT "TELL  ME.  IF  IT  IS  NOT" 


85  PRINT  TflBC8>J  "PRESS  /M/‘ .  "  , 
90  PR I NT "MI  WILL  TELL  YOU  YOUR" 


95  PR I NT" NUNEER  RT  THE  END" 

100  PR  I  NT 11  BidDfUrafeiiFRESS  ft  NY  KEY. 


110  GET  fl$:IF  ft$=,f"  THEN  110 
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115  print11  sara11 

120  PR I NT "HI  357911  13  15  17M 

121  PRINT'1  H19  21  23  25  27  29  31" 

122  PRINT" W33  35  37  39  41  43  45" 

123  PRINT" W4 7  49  51  53  55  57  59" 

124  PRINT  TflB<e>j"MSl  63" 

130  PRINT 

140  GGSUB  390 

150  PR  I  NT"  IMS" 

151  PR I NT" 2  3  6  7  10  11  14  15" 

152  PRINT: PRINT" 16  19  22  23  26  27  30" 

153  PRINT: PR  I NT "31  34  35  33  39  42  43" 

154  PRINT  SPRINT "46  47  50  51  54  55  58" 

155  PRINTTflBCe>j,,W59  62  63" 

166  PRINT 

170  GOSUB  390 
160  PR  I  NT  "MW" 

181  PRINT" 4  5  6  7  12  13  14  15" 

182  PRINT-W20  21  22  23  28  29  30" 

183  PRINT"H31  36  37  38  39  44  45" 

184  PRINT" W46  47  52  53  54  55  60" 

185  PR I NTTflB <  8  ) ;  "  MS  1  62  63" 

190  GOSUB  390 

200  PRINT,,rMDr 

201  PR I NT "8  9  10  11  12  13  14  15" 

202  PRINT"M24  25  26  27  28  29  30" 

203  PRINT"W31  40  41  42  43  44  45" 

204  PR  I  NT"  >046  47  56  57  58  59  60" 

205  PR I NTTflB <8>;  "W61  62  63" 

210  GOSUB  390 

220  PRINT'TKBCT 

221  PRINT" 16  17  18  19  20  21  22" 

222  PR  I  NT"  >023  24  25  26  27  28  29" 

223  PRINT" W30  31  48  49  50  51  52" 

224  PRINT" W53  54  55  56  57  58  59" 

225  PR I NTTflB ■*. 8 > ; " W60  61  62  63" 

230  GOSUB  390 
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240  PR  I  NT  "  nflUfl" 

241  PR I NT ”32  33  34  35  36  37  38" 

242  PRINT"»39  40  41  42  43  44  45 " 

243  PR  I  NT 11  *>46  47  48  49  50  51  52" 

244  PRINT"*T53  54  55  56  57  58  59" 

245  PRINTTfliKe^'-WSe  61  62  63” 

250  GGSUB  390 

260  POKE  36878, 15 
27G  FOR  T= IT 0255 
280  POKE  36876,  T 
290  POKE  36876, 255-T/2 
300  NEXT 

310  POKE  36878,0 

320  POKE  36876,0 

330  PRINT” Wt'OUR  DUMBER  J»JRSrSMN 

340  FDRT= 1 TO4000 : NEXT : RUN 

390  X«=X+X 

395  Cf ®M I D$  <  B$ , < I NT  < RHD C 1 > *3 >  + 1 > , 1 > 

400  P0KE36878, 15 

410  FOR  T«100  TO  255 

420  POKE  36876, T-N*3 

430  NEXT  T 

440  POKE  36878,0 

450  POKE  36876,0 

455  PRINT 

460  PRINT  C*"IF  YOUR  NUMBER  IS" 

470  PR I NT "HERE  PRESS  'V' ,  IF" 

480  PRINT  "NOT,  PRESS  'W . " 

490  GET  R$ 

500  IF  R*=""  THEN  490 
510  IF  R$OnH"  THEN  N*H+X 
520  FOR  T=1  TO  500 
530  NEXT  T 
540  RETURN 
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MENTO 

Mento  is  another  mathematical  mind-reading  wizard.  Just  get  your  friends  to  follow 
the  instructions  to  be  amazed,  pressing  anykey  afteryou  have  followed  the  wizard's 
wise  words. 


10  REM  MENTO 

15  POKE  36879, 8 : PRINT" s|" 

20  GOSUB102® 

30  PRINT "MULTIPLY  YOUR  AGE  BY" 
40  PR  I  NT  "TWO,  THEN  ADD  FIVE" 

50  003 UB 1800 

S®  PR  I.  NT 11  HOW  MULTIPLY  THAT" 

7@  PR I NT "BY  FIFTY,  AND" 

80  PR I NT "SUBTRACT  365" 

90  GO8UB100@ 

100  PRINT  "NOLI  ADD  THE  AMOUNT" 
110  PR I  NT "OF  CHANGE  IN  YOUR” 

120  PR I NT "POCKET" 

130  GOSUB1008 

140  PR I NT "HOW  GIVE  ME  THE" 

150  PR  I  NT  "NUMBER  YOU-'VE  ENDED" 
160  PR I NT "UP  WITH" 

179  INPUT  A :  A--A+1 15 

180  BK=A/100 
190  A*R-BK#100 

200  PR I NT "YOU  HAVE "A" CHANGE. " 
210  PR  INI- 

220  PR  I  NT  "YOU  ARE  "BJi"  YEARS  OLD" 
230  END 
1000  GET A# 

1010  I  FA#-- " "  THEN  1 000 
1@20  PRINT"!!" 

1030  PR I NT " HMM" 

1040  RETURN 
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TIME 

GUARDIAN 

In  this  challenging  game  written  by  Adam  Burbidge  of  Crawley  you  have  to  recover 
the  six  parts  of  the  key  of  time.  The  ship  starts  with  700  energy  points,  and  you  lose 
five  points  for  each  move. 

When  you  first  run  it,  you'll  see  the  message  I  AM  CREATING  A  GALAXY  while  the 
VIC  sets  up  the  universe  for  your  game.  After  a  brief  delay,  the  screen  will  clear,  and 
it  is  Decision  Time.  Every  so  often  the  VIC  will  ask  you  to  set  co-ordinates,  and  then  it 
will  print: 

QUADRANT?  You  enter  a  number  from  0  to  6 

SECTOR?  You  enter  another  number  from  0  to  6 

This  is  repeated.  Then  it  will  print: 

TIME?  You  enter  either  0  or  1 


If  you  land  on  a  hostile  planet,  the  VIC  will  print  SHIP  UNDER  ATTACK,  then  SHIP 
ENERGY.  .  .  and  a  number.  You  need  to  press  any  key  {which  you  may  have  to  do 
several  times  rapidly)  to  escape  from  the  hostile  planet. 


From  time  to  time  you'll  find  part  of  the  'key  of  Chronos',  the  point  of  the  whole 
game.  You  must  find  all  six  parts  of  it  to  win,  and  you  must  find  them  before  your 
ship's  energy  is  exhausted. 


3  REM  TIME  GUARDIAN 

4  REM  BV  ADAM  BURBIDGE 

5  DIMKX<4)  iZ$<l),A/£<6,6,6,  1) 

6  KX<3)=700  F=75 

10  PR I NT1 “3": REM  CLEAR  SCREEN 
20  PRINT’' SHI  AM  CREATING  A  GRLAXV" 
30  B=IHT<RND<1)*6> 

40  C=INT<RNDa>#6> 

50  D*INT<RND<1>#6) 

60  E=INT<RND<1>*2> 

70  RXCBjCj D>E)=2 
75  F«F-1 : IFFC0  THEN  85 
80  GOTO30 

85  PR  I  NT  "T:  REM  CLEAR  SCREEN 
90  GN=INT<RND<l>*2.Hi 
100  PRINT "SSr'OU  START  AT  GLODNOB'1 
105  PRINT 

110  PRINT"«UADRflNT  51 11 
115  PRINT 

120  PRINT"BSECTOR  3,4“ 
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125  PRINT 

130  PRINT "flST I ME " ON# 1 000 "EARTH  YERRS" 

135  PRINT 

140  PRINT"aSET  CO-ORDINRTES" 

150  INPUT"QUfiDRRNT";G 
160  INPUT"SECTOR";H 
165  PRINT"*" 

170  INPUT" SECTOR”; I 
180  INPUT“TIME"; J 
185  KX<3)SKX(3>“5 

190  IFRX<G,H, I,J)=l  THEN  PRINT" SBi’OU  RRE  ON  GLODNQB" ;GQTO90 
200  IFRX(G.<H, 1/ J)>1  THEN  30Q 
210  PRINT"kDEEP  SPRCE" : GOTO140 
300  PRINT-iVOU  RRE  ON  R  PLRNET" 

310  PRINT"  SBQURDRRNT"G 

320  PRINr'aSECTOR'Ul 

330  PRINT,,SnME"J#INT<RND<l>*7) 

340  KJi<D=INT  <RND(1)#20)+1 

350  IFKX<1»5  THEN  370 

360  PR  I  NT 11  &JN|  INWRSB I  WED " :  GOTO140 

370  IFKXCO>10  THEN  400 

380  PR  I  NT"  *91 NHRB I TRNTS  HOSTILE'1  :QOTO500 

400  PRINT" ART  OF  THE  KEY  OF"/'*  CHRONOS  11 

410  KX(2>=KX(2)+1 

420  PR  I  NT  "YOU  NOW  HAVE"KX<2) "PARTS",  "OF  THE  STKEY" 

430  IFKX(2)*6  THEN  PRINr'WOU  HAVE  MGN!":END 
440  GOTO140 
500  GET  Z$<1> 

510  IF  Z$< 1)="  '’THEN540 
520  GOTO 140 

540  PRINT"«aSHIP  UNDER  WTTRCK!" 

550  KX<3>*KX<3)-INT (RND< 1  >#50H1 

560  PRINT"aSHIP  ENERGY: "KX3 

565  IFKX<3><1  THEN  PRINT"  SUSHIP  ^DESTROYED" :END 

570  FORT* 1TO200: NEXT 

580  GOTO500 


SUPERBOWL 

The  VIC  sets  up  the  pins  for  you  in  this  simulation  of  a  1 0-pin  bowling  alley,  and  then 
obligingly  knocks  them  down,  adding  up  your  score  as  it  goes. 


There  are  10  frames  to  a  game,  two  balls  to  a  frame.  As  you'll  play  this  game,  you'll 
find  that  strikes  are  few  and  far  between.  There  is  a  highest  score  routine  (310to  330) 
which  you  may  well  want  to  adapt  for  other  games  you  write. 


5  REM  SUPERBOWL 
20  V=0 : S=0 

30  PRINT" 0": REM  CLEAR 
40  FORB=1TO10 
50  GO3UB500 

60  F0RE=1T02: PRINT: PRINT: PRINT 
65  PR I NT "B"  :REt1  HOME 
70  PRINT”  rFRAME"B"3BALL”E 
75  PRIHT:FORT=1TO500NEXT 
80  Z=9 

90  FORC=1TOI0 
100  IFEC2THEN120 
110  fl(C>=79 

120  IF  RNDC1 )>0.5  THEN  ACC>=45 
130  IF  ACC >=45  THEN  Z*Z+1 
140  NEXTC 

145  PRINT: PRINT  PRINT 

150  PRINT, MI"CHR$<AC10)>"  ’'CHRTCAO))'1  "CHR^CflCe))"  ''CHR*<RC7)> 
155  PRINT :GOSUB700 

160  PRINT,"  ”CHR$(fl(6))"  "CHRTCRC5))”  ”CHR*<A<4)> 

165  PRINT :GOSUB700 

170  PRINT, "  ”CHR#<fl(3))"  UCHR$CA<2>> 

175  PRINT :QOSUB700 
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180  PRINT,"  "CHR*(fl(l)> 

190  PRINT 

200  PRINT"  rjSSCORE  THIS  FRAME"  2 11 
215  PRINT 

220  IFE=1  ANDZ=10  THEN  370 

230  IF2-10  THEN  2=15  =  PRINT, "i® ONUS !! " 

240  IFE=2  THEN  S=S+Z 

250  IFE=2  RND  BO10  THEN  PRINT"  «SC0RE  SO  FAR  IS"S 

260  FQRT»1TO1000: NEXT 

270  PRINT 

280  NEXTE 

290  NEXTB 

300  PRIHT"!SBCORE  FOR  THAT  GAME  WflSIP'S" 

310  IFSCV  THEN  330 
320  V=S 

330  PRINT"  H3WIGHEST  SO  FRR"V 

340  FOR T=  1 T 09000 : NEXT 

350  3=0 

360  GOTO30 

370  PRINT 

330  PRINT, "ttSSTRIKE! !" 

385  PRINT 

390  F0RT=1 TO  1000  NEXT 
410  S=S+15 
420  E=2 
440  GOTO230 

500  FORD*  1  TO  10  :fKD>*?9:  NEXT 
505  GOSUB2000 
510  PRINT 

520  PRINT  "  SFRflME 
530  PRINT : PRINT 
540  PRINT: PRINT 

550  PRINT ,  "i"CHR$<R(10> >"  "CHR*<R<9>>M  "CHR$(A<8))"  "CHR$<A(7>> 
555  FRINT 

560  PRINT,"  "CHR*<A<6)>"  "CHR$<A<5>>"  "CHR»(fl(4)) 

565  PRINT 

570  PRINT,"  "CHRt(ft<3>>°  "CHR$<R<2>) 

575  PRINT 

580  PRINT,"  "CHR*<A<1>) 

585  F0R-J=1T05:  PRINT"  " :  NEXT 

590  FORT* 1  TO 1000: NEXT 

600  RETURN 

700  REM  DELAV,  SOUND 

710  POKE36878, 15 

720  F0RU*249T 0239STEP-2 

730  P0KE36876,U 

750  F0RIJ=238T0249 

760  P0KE36876.U 

770  NEXT 

780  POKE36876,0 

800  POKE36878,0 

810  FORT = 1 TO50 : NEXT 

820  RETURN 

2080  REM  SET  UP  SOUND 
2010  F0KE36878, 10 
2020  F0RK=248T0148  STEP-2 
2025  P0KE36879.*2S+IHT<RND<n#6) 

2030  PQKE36876, K 
2040  P0KE36875,  K 
2050  NEXT 
2055  P0KE36878.I0 
2060  RETURN 
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GOMOKU 

in  this  game,  you  and  the  VIC  take  it  in  turns  to  place  your  pieces  ('H'  for  you,  'C'  for 
the  computer)  on  an  eight  by  eight  board,  trying  to  get  five  pieces  in  a  row.  The 
computerplays  anextremely  good  game,  so  good  that  it  was  necessary  to  cheat 
when  we  were  developing  this  program  in  order  to  win  to  check  that  the  YOU  WIN 
routine  was  working  correctly. 

You  have  the  choice  of  first  or  second  move,  and  you  enter  your  move  by  indicating 
the  number  along  the  side,  then  across  the  top. 

As  you  can  see,  the  program  cycles  through  a  loop  (lines  60  to  100)  over  and  over 
again, calling  up  various  subroutines  to  dothe  neededtasks.  The  board  is  printed  by 
lines  230  to  320,  and  you  may  well  want  to  modify  this  to  print  different  symbols  for 
the  pieces,  or  use  the  same  symbols  as  in  the  program,  but  with  different  colours. 

The  game  can  end  in  three  ways.  You  defeat  the  computer  (line  640),  the  computer 
defeats  you  (line  1140)  or  the  computer  concedes  defeat  (which  it  will  only  do  after 
having  chosen  400  squares  at  random,  see  lines 950  to  975).  This  program  is  based 
on  one  written  by  Graham  Charlton. 

10  REM  GOMOKU 

15  REM  BASED  ON  PROGRAM  BV  GRAHAM  CHARLTON 

20  GO SUE 1 1 80 

30  GG8UB230 

60  GOSUB420 

70  GO SUBS 30 

80  GGSUB540 

98  GO SUBS 30 

1G0  COSUB 1030 

110  GOTO60 

140  E~A 

1 45  E=E+H  •  I  FACE  >  OZTHENRETURH 

150  K=K+1 : GOTO 145 

230  PRINT 12345678" 

240  F0RA=1T0S :  PRINT"  lip  US"  A; 

270  F0RB-2T09 • M-A < A* 1 0+B> 

280  I FM-CTHENPR I NT " SBCS"  J 
290  I FM-H THE H PRINT"  MH! 1"  1 
3G0  I  FM-46THEMPR  I  NT  "  Gi.  " 

3 1 0  NEXT  •  PR  I  NT 11 S"  A  :  NEXT 

320  PRINT 1234 5678. BlPIfW" 

36U  RETURN 

420  I NPUTG  =  G=G+ 1  •  I FGC 1 20R0390RA  <  0  > 04 6THEN420 

480  Z*H : fi < G  >  =Z : RETURN 

548  R-G ' L-0 : F0RX“1TQ4 : K=0 : N«XOO 

590  GOSUE140 

600  N=“H : GQ3UB140 

610  I FK>LTHEHL“K 

630  NEXT 

640  I  FL> 3 THEN P R I  NT  "  U I N  "  :  COTO640 

650  T=1 

66G  I F T < > 2 T H EHZ = C 
670  IFT=2THEHZ=H 
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680  G—Q : H 1 =0 : L~0 

7 1 0  FORR- 1 2 TOSS : M=0 : IFR<R> 04 6THEN900 
740  F0RX-1T04 : K-8 : N*X<X> ■ GOSUB140 
780  H~-N : QOSUB140 
800  I FK>LTHENH1=0 : L-K 
810  IFLOKTHEH660 

820  I FT* 1RHDL<40R< T=20RT“3 > R H D L < 2 T H EH 8 6 0 

850  n*M+i 

860  NEXT 

87G  I FtTC-H 1 THEM900 
8S0  H1=M : G-R 
900  NEXT 

S10  IFH1O0THEN980 
S20  T=T+1  :  I  FT 04  THEN 6 60 
S40  R= 1 

950  G-I  NT  <:  RND  C  0  >  *77  ;■  + 1 3 
960  I  FFl  < G ")  “46THEH989 

979  R~R+1 ; I FFK400THEN350 

975  pr x nt concede"  ■  gotq973 

980  R03>-C : RETURN 
1©30  Z*C ’ ReG : L—0 

I860  FORK* 1 T04 : K-0  =  N=X < X > 

1098  G0SUB146 
1100  : GOSUB140 

1128  IFK>LTHENL=K 
1130  NEXT 

1 1 40  I FL  >3  THEN  PR  I  NT  "  W  I H  "  ■  GOTO  1 1 48 

1150  RETURN 
1130  PR I NT”  IT 
1200  D I MR Cl 00 > 

1210  FORR-1 TOS :  F0RB=2TO9 :  R  C  R*  1 8+B  >  "4  6  =  HEXTB  .■  R 
1268  FORQ=1T04  =  RERDX<Q> : NEXT 
1290  IiflTRl,9,10, 11 
1300  H~RSC  <  '■  H “  >  =  C=RSC  <  ” C  "  ) 

134©  PR  I  NT "  NKMKENTER  V'  IF  VOU  WANT  THE  FIRST  MOVE,  "H'  IF  YOU  DON'T" 

1350  GET  FT :  I FF$0  ”  N  ”  R  NDFTO  "  V  "  THEN  1 350 

1 3S0  PR  I NT "  IT  = PQKE36S79 , 255 

1390  IFFT-” V " THENRETURN 

1400  FORJ~1TOIHTCRND<0>#12>+1 

1418  RERDZ : NEXT 

1448  R<  2>~C : RETURN 

1458  DATR34 , 35 , 36 ,  44 ,  46 , 4? ,  54 55 , 56 , 5? ,  66 
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FAIRWAY 


In  this  game,  you  are  on  a  nine  hole  golf  course.  The  length  of  each  hole  varies  each 
time  you  play  the  game.  The  program  makes  much  use  of  POKEing  to  create  the 
green,  and  move  the  ball.  The  sound  the  ball  makes  is  particularly  interesting  if  you 
overshoot  the  hole. 


10  REM  FAIRWAY 

15  P0KE36879, 28 

20  SC=0  REM  SCORE 

30  flV=0 : REM  RVERRGE 

100  FQRfl*lT09:REH  NO.  OF  HOLES 

105  T=0 : REMTRLLV  THIS  HOLE 

110  D=  I  NT < RHD ( 1 ) #7  > + 1 4 : REM  DISTANCE  TO  HOLE 

120  PR I NT" IT  : REM  CLEAR  SCREEN 

125  C=8 

130  M=0 

400  GOSUB6000 

500  GOSUB5000 

510  IFMOD  THEN  500 

520  IFABSCM-DX2  THEN  8008 

525  I  Ff1>2 1  M«21 

530  GOTO500 

540  END 

5800  PRINT  "iSSHOLE  NUMBER "A  ‘ 

50O5  PRINT, D* 10" YARDS" 

5010  PRINT 

5012  PR.  I  NT  "  ISCORE  "  SC"  IF  ALL  V”  T 

5015  IFD-M  THEN  8000 

5020  PR  I  NT  "l®  I  STANCE  FROM  HOLE :  " 

5025  IF  D-M=>10  THEN  PRINT"ST<IH1>#10,,YfiRDS 

5026  IF  D-M<  16  THEN  PRINT"  "<D-M>* 10" YARDS 
5030  PR  I  NT  "ST 
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5040  INPUT "WHICH  CLUB",C 
5042  T-T+i 

5044  GOSUB7O00 

5045  POKE38730+M,1 
5047  IFM>L  THEHC~-C 

5960  M”  I NT <M+C/3*RND< 1+i  >) 

5065  C=0 

5070  POKE3010+M..  81 
5080  PGKE38730+Mj  2 
5090  RETURN 

5999  END 

6000  REM  DRAW  GREEN 
6016  FORQ=8032TO81 19 
6020  POKEQ« 102 

6O30  POKEQ+38752-8032,5 
6040  NEXT  Q 

6050  P0KE8S32+D, 74 : POKE8033+D , 75 

6060  P0KE38752+D, 2  =  P0KE38753+B, 2 

6065  POKE8O10+M..  81 

6070  POKE38730+M..2 

6100  RETURN 

7000  FORW= 1 28T 0 1 80+3#M 

7005  POKE-36878 j  15 

7020  P0KE36875 ■ W 

7030  POKE36874.W 

7040  HEXTU 

7050  POKE36875.0 

7060  P0KE36874. 0 

7500  RETURN 

8000  T-T-l 

8002  P0KE36876/ 220 

8003  F0RP"IT05:HEXT 

8094  P0KE36376 , 0  P0KE36876 . 225 : P0KE36876 ■ 3 

8010  PRINT" VOU  GOT  IT  IH''T 

9020  POKE8010+H, 1 

8030  POKE8032+M.81 

8040  P0KE38774+M, 2 

8050  POKE8033+M, 162 

8060  P0KE38775+M, 5 

8062  SC-SC+T 

8065  PRINT" ifi VERRGE " I NT < SC/R+ . 5 > 

8070  FGRH= 1 TO5000 : NEXT 
8990  NEXTR 
9080  END 
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ROBOT  NIM 

The  VIC  prints  a  number  of  odd  triangle  shapes,  tells  you  how  many  you  can  take, 
then  takes  a  few  of  the  shapes  itself.  Thisfascinating  process  continues  until  there  is 
only  one  left.  At  this  point  the  player  who  must  take  the  last  one  loses. 


Structure  of  the  program 

Line  20:  Determines  the  number  of  objects. 

Line  50:  Determines  maximum  number  to  be  taken. 

Lines  100  to  130:  Print  out  the  correct  number  of  triangles,  starting  new  lines  at  random  (see 
line  120). 

Lines  210  and  215:  Determine  how  many  the  ‘robot’  will  take.  The  random  bit  at  the  end  of 
line  210  ensures  that  the  robot  makes  mistakes  from  time  to  time.  Line  215  ensures  that 
the  mistake  is  not  so  large  that  the  robot  breaks  the  rules. 

Lines  280  to  290:  Place  a  coloured  border  between  rounds  of  the  game.  Design  this  to  suit 
yourself. 


10  REM  ROBOT  NIM 
20  M=0:E=0: Z=16+INT<RHIK1)#8> 

30  PRINT,,T:REM  CLEAR  SCREEN 
40  IF2#INT<Z72>=Z  THENZ=Z+1 
50  H=3+INT<RND<1>*2) 

68  PRINT"W1RXIMUPI  TO  TfiKE”H 
78  GOSUB280 

80  IF  E>0  THEN  PRINT"W0U  T00K”E,  "lf?0B0T  T00K"Q 
90  PRINT"ii" 

180  PRINT"!’1  :F0RK=1TOZ 
118  PRINTK; "F" ; 

128  IF  RNDa»0.6  THEN  PRINT 
130  NEXTK 
148  GOSUB280 

145  PR I  NT "■HOW  MflNV  HILL'V’VOU  TAKE"; 

150  IMPUTE 

160  IF  E>H  THEN  150 

170  Z=Z-E 

180  GOSUB280 

190  IF  Z<1  THEN  PRINT"HVOU  TOOK  THE  LAST  ONEVSW  SO  ROBOT  WINS!!  " :  END 
210  Q-Z-l-INT <  <Z-1)K<H+1))#<H+1)-INT(RNIK1)#2)+INT<RNIK  1?#2) 

215  IF  QC1  OR  GDH  THEN  210 
220  GOSUB280 
230  Z~Z-Q 

240  IFZ=0  THEN  PRINT"kR0B0T  TO0Ktt"G, , , ”!S0  VOU  flSWIN! !  "  :END 
270  GOTO60 
280  PRINT 

285  PRINT"rs##L###rw#*t##rs##ji###^#s###riw#'' 

290  RETURN 
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ZAUPER 

ATTACK 

In  this  program,  by  Christopher  Hutber  of  Milton  Keynes  you  must  zap  the  Klingons 
before  they  are  eaten  by  the  Zaupers.  you  need  to  take  care  because  these  creatures 
may  also  eat  you.  "Z "  moves  your  gun  left,  and  "C"  moves  it  right.  "X"  will  fire  your 
gun.  Full  instructions  are  within  the  program. 


0  p!?  T  F.JT"fT,= 

1  pFMApK*SLE  PP0GpPMMr  w  >'Hp?ST0PHEP  HUTBER  AGED  12 
?  REM  24-27/12/81 
3  GOSUB  7000 
3  Tl-TI 

9  SC=0 

10  PRINT’TJ" 

12  PRINT'-MWOrara^^ 

13  REM  DRAW  KLIHG0H5 
15  POKE  36879/8 

20  FOR  1=38400  TO  30331 
30  POKE  I,  I 
40  NEXT  I 

30  FOR  H“7680  TO  7767STEP  3 
60  POKE  H/61 
70  NEXT  H 
90  REM  DRAW  GUN 
100  T=795S 

110  FOR  R-38664T038664+21 

112  POKE  R,7 

114  NEXT  R 

120  POKE  T,63 

130  IF  SC “30  THEN  1000 

135  REM  GET  INSTRUCTION 

140  GET  A$ • IF  flfs" " THEN  3000 

170  IF  fl$“”X"THEN400 

100  IF  fl$“,’C',THEN300 

190  IF  R*-t’Z"THEN200 

192  IF  R»“"rlTHEN  5003 

195  GOTO  140 

197  REM  MOVE  GUN 

200  FOR  B=7944T07963 

210  POKE  Bf 70 

220  NEXT  B 

230  T“T-l:Q0T0  120 

300  FOR  B*7944TQ7963 

310  POKEB,70 

320  NEXTB 

330  T»T+1 :GOTO  120 

399  REM  FIRE 

400  FORF*TTD7600+(T-7944> STEP-22 
410  PQK*F,46 

412  FOR  U*1  T025:NEXTW 
414  POKE  F<32 

420  IF  PEEK <F-22> *81 THEN  00T0  4B0 
430  NEXTF 


455  POKE  F+22/96 
460  FOR  I-1TQ50 ;NEXTI 
470  POKE  F^r 

472  FOR  0-7680+ a-7944>T0T-22BTEF22 
474  POKE  0i96 
480  PQKEF-22/32 

482  IF  PEEKCF)OB1RNDF<7702THEN  GOTO  600 
468  POKE  36877i220 
490  L-7 

300  POKE  36676/ L 
310  FOR  H-1T0  200 
520  NEXT  M 
540  POKE  36076/0 
530  POKE  36678/0 
353  8C-8C+1 

360  PRINT"<SC0RE:Mj8C;"ry':Q0T0  120 
600  PRINT"RBCQRE :  11  / SC;  "H"  :QQTQ  120 
1000  PRINT'D" 

1005  T2-TI 

1010  POKE  36079/30 

1020  PRINT"U4ELL  DONE!" 

1030  PRINT" YOU  WIPED  OFF  THE  KLINQ0N8  IN  MNT<<T2-T1  V60)i "  SEC0ND8 I " 

1031  POKE  36878/13 

1032  FOR  L"1  TO  100 

1033  POKE  36676/ INT <RND< 1)#128)+120 

1034  FOR  M-l  TO  10 
1033  NEXT  M 

1036  NEXT  L 

1037  POKE  36876/0 
103B  POKE  36676/0 
1040  PRINT: PRINT 
1030  PRINT'PLRY  RGHIN  7" 

1033  PRINTPRINT 
1060  OETSf 

1070  IF  Si-" "THEN 1060 
1080  IF  8$-" Y" THEN  8 
1090  IF  S*-"N" THEN 1200 
1100  GOTO  1060 
1200  PRINTTflB<7>/ "BYE  BYE" 

1203  PRINT 

1210  PRINT'THRNKS  FOR  PLRYINO" 

1300  END 

2999  REM  ACTIVATE  ZRUPERS 

3000  FQRE«=lTQ10:R-INT<RND<l)l*?3>+7600 
3010  IF  R>7767  THEN  3000 
3020  Q-INT<RNDCl>*20>+7944 
3050  D-0.5+RNDU) 

3060  IF  DC1THEN  V-21 
3070  IF  D>ITHEN  V-23 
3100  FOR  Z-RTOQSTEPV 
3110  POKE  Z/61 
3120  POKE  Z-V/32 
3130  FOR  X"1TQ25:NEXTX 
3150  IF  At«"rTHEN  3150 
3200  OET  ft$:  IF  fl*0""THEN  170 
3300  NEXT  Z 
3400  IF  Z-TTHEN  4000 
3500  OOTO  170 

4000  PRINT"DKRUPER8  HAVE  WON  " 

4050  PRINT 

4100  PRINT’MOON  BR8E  DESTROYED  I " 

4150  REM  EXPLOSION 
4200  POKE  36877/220 
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4230  FOR  L«13TO0STEP-1 
4230  POKE  36870/ L 
4270  FOR  M-1TO300 
4290  NEXT  M 
4300  NEXT  L 
4320  POKE  36077/0 
4330  POKE  36876/0 
4300  OOTO  1040 
3000  SC-SC-3 
3100  PRINT0CJ  ".T 
3200  FOR  K-1TO  30 : NEXT  K 
3300  OOTO  10 

7000  PRINTTRB(3);,iBi^^mWHH" 

7010  PRINT  THBC3>;  nIZHUPER  ATTACK  j  tfl  11 
7020  PRINTTflB(3)  J  "I  BY  « ■■ 

7030  PRINTTflBO) ;  "IC.R.  J,  HUTBER  ■  ” 

7040  PRINTTflB(3)il,BI,»*»^^MM*» 

7060  PRINT: PRINT 

7100  PRINT" INTRUSIONS  (V  OR  N>?" 

7120  OET  Mf ! IF  Ml*" "THEN  7120 
7130  IF  Mf*"N"THEN  RETURN 
7140  IF  Mf="Y" THEN  7300 
7130  OOTO  7120 
7500  PRINT"YES" 

7310  PRINT 

7320  PRINT" 'KlINGON  ATTACK'  IS  A  GAME  OF  SPEED." 

7330  PRINT: PRINT" THE  OBJECT  IS  TO  KILL  ALL  THE  KLINOONS  IN 
POSSIBLE." 

7540  PRINT: PRINT 
7550  PR  I NT "HIT  A  KEY" 

7360  GET  NS : IF  NS*"" THEN  7360 
7600  PRINT "T 
7610  POKE  36879/0 
7620  PRINT" 4  KEY" 

7630  PRINT"  - ■■ 

7640  PRINT: PRINT 
7630  PRINT"  •  -KLINGON" 

7633  PRINT 

7660  PRINT"  ■  -ZAUPER" 

7665  PRINT 

7670  PRINT"  t  -YOUR  OUN" 

7672  PRINT: PRINT: PRINT 
7675  PRINT"HIT  A  KEY" 

7680  GET  Of: IF  Of-" "THEN  7680 

7700  PR  I  NT  "T 

7710  POKE  36879/234 

7720  PRINT"ITHE  ZflUPERS  EAT  THE  KLINGONS  AND  WILL" 

7730  PRINT"CRflSH  INTO  YOU  GIVEN  HALF  A  CHANCE." 

7735  OOSUB  9000 
7740  PRINT: PRINT 

7730  PRINT"TO  MOVE  YOUR  OUN  PRESS" 

7760  PRINT: PRINT" 'Z'-MOVES  IT  LEFT" 

7770  PRINT :PRINTu/C'-MOVES  IT  RIGHT" 


7800  PR I NT: PR I  NT 

7810  PRINT"TO  FIRE  GUN  PRESS :/X'" 

7820  PRINT: PRINT 
7830  PRINT "HIT  A  KEY" 

7840  OET  V*: IF  V$=,,,,THEN  7840 
7850  PR  I  NT 11 T 

7900  PRINT"WHEN  ALL  THE  KLINOONS  ON  THE  SCREEN  HAVE" 

7920  PRINT  "TNI  S  *  W I LL^TRKE  YOU  BACK  TO  THE  START  AND" 
7930  PRINT"TflKE  AWAY  FIVE  POINTS" 


AS  QUICK  TIME  AS 


82 


7930  PRINT: PRINT 

8000  PRINT"HIT  R  KEV  TO  START" 

8010  OET  Xf : IF  Xf* " "THEN  8010 
8020  RETURN 
9000  PR I NT: PR  I NT 

9010  PRINT"THE  ZAUPERS  ARE  HIGHLYSENSITIVE  TO  THE  HEAT  " 
9020  PR I  NT "01 YEN  OFF  BY  YOUR  MOVEMENT  AND  FIRINO," 
9030  PRINT’THUS  WHEN  YOU  DO  SO," 

9040  PRINT"THEY  ARE  PARALYSED!" 

9043  PRINT :PRINT"HIT  A  KEY" 

9050  GET  Yf :  IF  Y*=""THEN  9050 
9060  PR  I  NT  "T 
9070  RETURN 


VIC-ET-UN 


In  this  program  you  and  the  VIC  (with  thunderstorms,  lighting  bolts  and  other 
distractons)  take  it  in  turns  to  roll  a  dice  trying  to  get  a  total  as  close  as  possible  to- 
or  equal  to  -  21,  without  going  over  21.  This  game  is  a  dice  version  of  Blackjack. 


It  is  very  simple  to  play.  After  pressing  RUN,  you'll  be  told  to  touch  the  "Z"  key  to  roll 
the  dice,  the  "M"  key  to  stand,  that  is,  to  stay  with  the  total  you  now  have.  Your  total 
will  apear,  and  the  choice  to  roll  or  stand  again.  Once  you've  decided  to  stand,  the 
VIC  will  start  to  roll,  and  will  -  in  two  games  out  of  three,  on  average  -  beat  you. 


Structure  of  the  program 

Line  10:  Sets  the  counters  for  the  human  (H)  and  computer  (C)  scores. 

Line  20:  Sends  action  to  the  wild  and  crazy  subroutine  which  selects  colours  and  sounds 
randomly. 

Lines  30  to  80:  Accepts  and  acts  on  the  player’s  decisions. 

Lines  90  to  130:  Computer  decides  whether  to  add  to  its  total  or  stand. 

Lines  140  to  250:  Decides  who  has  won,  creates  some  more  mayhem,  starts  a  new  game. 

Line  260:  Delay  loop,  called  various  times  during  the  program. 

Line  990:  Assigns  A$. 

Lines  from  1000:  Selects  an  element  from  A$  to  change  the  colour,  then  does  some  quite 
exciting  things  with  the  colour  and  sound. 

5  REM  VIC-ET-UN 
7  PRINT  "IT:  REM  CLERR  SCREEN 
10  H-0 : C=0 
20  GOSUB990 

30  PRINTB#; "  ENTER  Z  TO  ROLL" : GOSUB 1000 : PRINTBf; "  M  TO  STAND" 

35  GETM$: IFM$-""THEN35 
40  1FM$<="M"THEN90 

59  H=H+ 1 NT ( RND ( 1 ) *6  >  + 1 

60  GOSUB260 : GOSUB1000 

70  PRINT :pRINTB$;"  YOUR  TOTAL  IS"H 
75  GOSUB260 : GOSUB260 : PR  I  NT 
80  GOTO30 

90  IFOH  AND  C<22  OR  021  OR  H>21  0RH=21  RNDC=21THEN  140 
100  C=C+INT<RND<1)*6>+1 
110  GOSUB260 
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113  PRINT: PRINT 

120  QOSUB1000:PRINTB$;''  MV  TOTAL  IS"C 
130  GOTO90 

140  GOSUB1000: PRINTS#; 

130  OOSUB260 : OOSUB1000 : GGSUB260 
170  I FH»COR  <  H>2 1 ANDC>2 1 ) THEN240 
175  PRINT: PRINT: PRINTB#; 

180  IF<C>H  0RH>21)ANBC<22  THENPRINT # "I"i 
190  IF<C<H0RC>21>ANDH<22THENPRINT, "YOU"; 

200  GOSUB1000 : PRINTB$; 11  WIN!!1’ 

210  GOSUB260 
220  GOSUB1000 

225  FOR J= 1 T07 : GOSUB260 : NEXT 

226  GOSUB1000 
230  PR  I NT "H": RUN 

240  GOSUB1000 :PRINTB*,  "DEAD  HEAT,  BUDDY!" 

250  G0T0223 

260  FORE=1TO500:NEXT 

270  RETURN 

990 

1000  B$CMID$<A>, <INT<RNS<1 )*7)+l), 1> 

1010  FORJ*1TOINT<RND<1>#10>+1 
1020  P0KE36878, INT<RND<1)#10H6 
1030  F0RK=lTGINT<RND<l)*7)+2 
1040  P0KE36876 , K+ 1 80- 1 NT  <RND< 1 ) #30 ) 

1050  NEXTK, J 

1070  P0KE36879, I NT(RND< 1 )#3)+28 : P0KE36979, 6 
1075  P0KE36879, INT (RND< 1 )#3)+28 
1080  P0KE36879, INT<RND<l)#3)+28 
1090  POKE36678,0 
1100  RETURN 


EVOLUTION 

In  1970,  John  Conway,  who  was  then  attending  Cambridge  University,  invented  the 
game  of  LIFE,  which  rapidly  became  a  computer  'hit'  after  it  was  described  in  the 
October  1970  issue  of  Scientific  American. 


LIFE,  which  simulates  the  birth,  growth  and  death  of  a  cell  colony,  produces  rather 
splendid  visual  effects. 

Mr  Conway's  rules  are  simple,  but  produce  unpredictably  interesting  results.  The 
cells  in  LIFE  are  born,  live  or  die  in  accord  with  the  dictates  laid  down  by  the  God 
Conway.  According  to  his  writ,  each  cell  has  eight  neighbours;  every  cell  with  two 
or  three  neighbours  survives  to  the  next  generation;  if  there  are  three,  and  only 
three,  neighbouring  cells,  a  new  cell  is  born;  and  any  cell  with  four  or  more 
neighbours  dies  from  overpopulation. 

EVOLUTION  is  a  version  of  LIFE  written  especially  for  the  VIC.  Setting  up  a  black 
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screen  with  a  red  border,  the  program  puts  cells  on  a  14x  14  grid  in  accord  with 
the  Conway  rules.  The  game  as  listed  is  silent,  but  if  you'd  like  to  add  a  little  sound  - 
which  tells  you  how  things  are  going  in  the  program  -  add  the  following  lines: 

6  POKE  36878,7 

225  POKE  36876,240: POKE  36876,0 

1075  POKE  36876,235: POKE  36876,0 


5  REM  EVOLUTION 

7  PRINT" 3": REM  CLERR  SCREEN 

8  PRINT"  SB" 

9  POKE  36873; 10 : REM  RED  BORDER,  BLRCK  SCREEN 

10  DIMfK  14, 14), EQ4, 14) 

29  FQRX-2  TO  13 

30  FORV-2  TO  13 
50  IF  RND<D>0.5  THEN  fi<X,Y>=l 
60  B <XiV>=fl<X;V) 

70  HEX TV 

89  NEXTX 

90  6OSUB1000 
95  0=0+1 
1O0  F0RX=2T013 
110  F0RY-2T013 
120  C-0 

120  IF  FKX-l ,  V—  1  > ■=  1  THEN  C<+1 
140  IF  R<X-1,Y>=1  THEN  C=C+i 
ICO  IFR<X-i,V+l)=l  THEN  C=C+1 
160  IFR<X,Y-1>«1  THEN  C^C+1 
170  IFfl(XiY+l)«I  THEN  C=C+1 
190  IFR<X+1..V-1)  =  1  THEN  C=C-+1 
190  IFR<X+i,Y)=l  THEN  C*C+1 
200  IFRCX+1 , V+l)=l  THEN  C=C+1 
210  IFR'LX.Y^l  AND  CC2  RND  C03  THEN  E<N,Y)=0 
220  IF  R<X, RND  C=3  THEN  B<X;V)»1 
230  NEXTY 
240  HEXTX 
250  GOTO90 

999  END 

1000  PR  I NT" ST : REM  HOME 

1003  PRINT : PRINT"  EVOLUTION  »";GJ  "ffl"  :REM  WHITE,  YELLOW 

1005  PRINT 

1010  F0RX~1T014 

1020  F0RV=1T014 

1030  fi<X,Y)=B(X,Y> 

1040  IFR(X.<  Y>=1  THEN  PRINT"#"; 

1050  lFfl<X,V)=0  THEN  PRINT" 

1060  NEXTY 
1070  PRINT 
1080  HEXTX 
1090  RETURN 
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SUPERPOET 

The  VIC  turns  Into  Wordsworth,  cranking  out  some  splendid  poems,  and  a  few 
which  are  not  so  brilliant.  Once  you've  seen  it  in  action,  change  the  words  in  the 
subroutines  100  to  270  to  suit  your  own  taste.  Note  the  use  of  ON.  .  .GOSUB  in  line 
40. 


5  REM  SUPERPOET 

10  PRINT"?]1' :  REM  CLEAR  SCREEN 

15  IF  RHD<1 )>0.3  THEN  30 

20  FOR J=  1 TORND <  0*2  =  PR INT  =  NEXT 

30  FGRJ=1TQ  RNDU)#5+1  PRINT"  :HEXT 

35  J=INT<RHD< 1 )#18)+1 

40  OH  J  GOSUB  100,110,120,130,140,150.160,170,180,190,200,210,220,230,240,250,26 
0,270 


50  FGRP-1T0  RNDi D #2000 : NEXT 
70  GOTO  1 5 

100  PRINT"lDETflCHED" ; : RETURN 

110  PR INT"SUNflWflRE" ;  = RETURN 

120  PRIHT,‘lk)JNflBLE1';  : RETURN 

1.30  PRINT'^INITIfiTE".:  -  RETURN 

I40  PRINTMREACHED  OUT  FOR";  RETURN 

150  PRINT"WV0IDS"; ; RETURN 

160  PR  I  NT"  BUFFERS RETURN 

170  PRINT" ICAPACI TV";= RETURN 

180  PRINT"J#SPIRITUflL"; : RETURN 

190  PRINT"lkflLTHOUGH" ; :  RETURN 

200  PRINT " ID ISCIPLE"; : RETURN 

210  PRINT" WE";  :  RETURN 

220  PR  INTEND";  :  RETURN 

230  PR  I  NT  "  JfTHEN  " ;  :  RETURN 

240  PRINT,’li,lRSTER";  ;  RETURN 

250  PR  I  NT" SOFTER" :  RETURN 

260  PR INT"!*.ONELY"  ;=  RETURN 

270  PRINT"IHIS"; : RETURN 


AND  THEN 
UNAWARE 
UNABLE 

ALTHOUGH 
AND  MASTER 

REACHED  OUT  FOR 

UNABLE 

MASTER  RETURNED 
UNABLE 

CA  PA  CITY  SPIRITUA  L 
DISCIPLE  HE 
LONELY  HE 

A  VOIDS  LONELY  MASTER 
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SYMPHONY  FOR  A 

MELANCHOLY 

COMPUTER 

This,  the  title  piece  of  our  book,  reflects  an  effort  to  write  a  program  which  would 
'write  music'  that  had  some  underlying  form.  The  title  is  obvious  and  appropriate, 
once  you've  heard  the  computer's  output  from  this  program. 

The  main  structure  of  the  music  comes  from  the  variables  A,  B,  C,  D,  E  and  F  which 
are  defined  on  each  run.  The  program  is  designed  so  that  the  chords  change  with 
reference  to  a  measure  (E)  and  so  that  the  changes  overlap  each  other,  thus  getting 
rid  of  harsh  stops  and  starts. 

10  REN  SVMPHONV  FOR 

15  REN  ft  NELflNCHOLV 

16  REN  COMPUTER 

13  GOSUB1000 
20  1 28+ 1 NT  < RHD  < 1 ) # 1 28 ) 

30  B=128+INT(RND<i)#128) 

40  C=128+INT<RND<1>#128) 

50  D*128+INTCRNDCi)#128) 

60  E»IHT<RNDC1 )#4)+l 
70  F^2*E 
75  P0KE36878,F-1 
90  F0RH“1T05*E 
100  P0KE36874.-  fl 
110  NEXTH 
120  F0RH*1T05#E 
130  P0KE36S75; B 
148  NEXTH 
150  F0RH=1T05*E 
160  P0KE36876, C 
170  NEXTH 
130  F0RH*1T05#E 
190  P0KE36877.D 
200  NEXTH 
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210  FQRH=1T02*E 
220  P0KE36874.fi 
230  NEXTH 
240  FGRH~1T05*E 
250  P0KE36876.C 
260  NEXTH 
500  RUN 

1000  PR  I  NT"  T:  REM  CLEfiR 

1010  P0KE36879 , 1 6* < I NT < RND <1 )# 1 G> )  +  ( I NT< RHD < 1 > *8 > > +8 
1020  RETURN 

Symphony  for  a  Melancholy 
Computer  with  Zen  Show 

This  is  the  same  program  as  just  listed,  with  an  underplayed  visual  display  added. 


10  REM  SVMPHONV  FOR 

15  REM  fl  MELfiNCHOLV 

16  REM  COMPUTER 

17  REM  WITH  ZEN  SHOW 

18  GOSUB1O00 

20  fl=123+INT(RND<  0*128) 

30  B“128+ItfT(RND<  D*128> 

40  C=  128+ INT(RND(  0*123) 

50  D=128+INT(RND(1>*123) 

60  E=INT(RND(1 )*2)+l 

70  F=2*E 

75  P0KE36878.F-1 

90  F0RH=1T05*E 

100  P0KE36874.fi 

110  NEXTH 

120  F0RH=1T05*E 

130  P0KE36875.B 

140  NEXTH 

150  FORH-1T05*E 

160  P0KE36876.C 

170  NEXTH 

130  F0RH=1T05*E 

190  P0KE36877 ,  D 

200  NEXTH 

210  F0RH“1T02*E 
220  P0KE368 74.fi 
230  NEXTH 
240  F0RH=1T05*E 
250  P0KE36876.C 
260  NEXTH 
500  RUN 


1065  FORJ=1TORND(O#20: PRINT"  "j : NEXT 
1070  PRINT  CHR#< 1 19+ INT(RND<  0*150 
1073  F0R.J=1T0RND( 0*20  PRINT"  :NEXT 
1088  PRINT  CHR*(119+INT(RND(  0*150 
1085  F0R.J=1T0RND< 0*20  ■PRINT"  " ;  : NEXT 
1090  PRINT  CHR*(119+IHT(RND(1)*15)> 
1095  FORJ=1TORND(  0*20  ■PRINT"  "r-NEXT 
1100  PRINT  CHR$(119+INT(RND<0*150 
1110  RETURN 


1000  PR  I  NT  "T  :REM  CLEfiR 

1010  P0KE36879. 16*(INT(RND( 0*16))+( INT(RND(1  )*8) )+8 
1020  FORJMT05 
1030  PRINT 
1040  NEXT 

1050  PRINT" 3SVMPH0NV  FOR  fl  MELfiNCHOLV  COMPUTER  " 

1060  PRINT 


VIC  CHECKERS 

The  VIC  puts  up  a  challenging  defence  in  this  game  of  checkers,  or  draughts.  The 
game  follows  all  the  traditional  rules,  except  that  there;  is  no  huffing  (penalty  for 
non-capture).  Despite  this,  the  VIC  will  always  capture  when  it  can. 

The  VIC  is  the  solid  red  circles  playing  down  the  board,  and  you  are  the  open  circles 
playing  from  the  bottom  of  the  screen.  You  move  by  entering  the  letter  across  the 
bottom,  then  the  number  down  the  side  (as  C7),  then  press  RETURN,  followed  by 
the  letter  across  the  bottom,  and  the  number  down  the  side  of  the  square  into  which 
you  want  to  move.  If  you  make  a  capture,  you'll  be  asked  JUMP  AGAIN?  Enter  any 
letter,  then  press  RETURN  if  you  can  jump  again,  or  just  press  RETURN  if  you  cannot 
jump  again.  You'll  then  be  given  an  additional  move.  The  VIC  makes  its  multiple 
jumps  automatically. 

The  VIC  always  has  first  move.  The  number  of  pieces  both  of  you  have  captured  is 
shown  above  the  board,  the  game  will  end  if  either  of  you  manages  to  capture  all  of 
the  other's  pieces,  or  if  the  VIC  judges  the  situation  to  be  hopeless,  and  concedesthe 
game.  Although  the  VIC  is  not  always  too  good  at  spotting  threats  to  its  pieces,  it  is 
most  reluctant  to  move  into  danger. 

The  screen  will  clear  from  time  to  time  during  a  game,  to  stop  the  area  under  the 
board  being  cluttered  by  inputs.  Although  there  is  no  mechanism  within  the 
program  to  stop  you  cheating,  there  is  little  to  gain  by  doing  so,  unless  you  want  to 
force  the  computer  into  a  particular  position  to  see  how  it  will  react.  The  VIC  is  an 
honourable  opponent,  and  will  not  cheat. 

Kings  are  made  automatically.  Your  kings  are  letter  K's,  and  the  computer's  kings 
are  diamonds.  Due  to  shortage  of  memory,  there  is  no  input  validation,  so  be  careful 
when  you  enter  your  moves.  A  mistake  when  entering  a  move  can  wreck  a  game. 
Lines  390  to  405  are  the  ones  in  which  the  VIC  checks  the  safety  of  its  intended 
moves,  predicting  captures  which  you  will  make  in  a  following  move  if  it  makes  the 
contemplated  move. 

The  program  has  been  written  in  such  a  way  that  it  is  easy  to  change  the  characters 
used  on  the  screen  to  represent  the  pieces.  All  you  have  to  change  is  lines  750  and 
900  to  use  your  own  choice  of  characters  for  the  pieces. 

10  REM  CHECKERS 
40  PRINT'TF'LERSE  STAND  BY" 

50  G0SIJB95© 

60  £=24 
70  G=0 

90  FORG =69 T072 : I FFK  G  >  =- 1 THENfi <  n  > =- ? 

108  NEXT 
110  GOSUB740 

1 30  I FFK  £  >  =9QRF)  <  Z  >  <  1 THENGQTO220 
1 40  I  FZ<28nHBR  {  Z  >  -- 1  THE  NR  <Z  >  ~2 
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150  V=1 

160  I Ffl Z+X <  V  )  > <0flHHfl <  Z+2* \ X  < Y  >  > >  *0THENQ*X<Y> 

170  I Ffl  <  Z  )  =2fiHDn  <  Z-X  C  V  >  > <0RHIlR  <  Z-2*X  <  V  >  >  =»0THENQ=-X  <  V  > 

1 00  IFQO0RNDZ+2*Q>23THENGOTQ230 
190  Q~0 

200  I F V =2 THE H 226 
210  V-2  ’■  GOTO  1 60 
220  Z-Z+l 
230  IFZ<73THEH130 
240  IFQ=0THEH340 

250  fl';Z+Q>=0:FKZ+2*Q>=fi<Z>  :fl'Z>«0 
260  2=Z+2*0  =  CO=CD+ 1 : GO3UB740 
270  Q=B- V=1 

280  I  FFKZ+Xa  V  > >  <0flNDR<Z+2*O#.<  Y  >  >  >  =--0THENQ«X  C V  > 

290  IFQO0RND2+2*0}23THEH250 
310  I  FV= 1 THENY«£ : GOTG280 
320  G0TO430 
340  U-0 : Q=0 

350  Z=24+ 1 HT  >-.RHD  <  1 >  *49  >  :  U=U+ 1 

360  I F  <  fl  <  Z  > -9QRR < Z>=-1  ORR < Z > --2 OR ft u Z > «0 >FlHIiU<  1 000THEH358 
380  Y-l 

385  I FR  <  2+X  <  V  >  >  O0THEH420  _ . ..  , 

390  IFFK 2+X C V >  >  =0RHER < Z+2#X < V > > >- 1  flHIlfl < Z+2*X < V >  + 1  > >-  1 RHIlfl < Z+2*X < ’t  - 1  ->-1 THENG-X 
Y> 

395  I  Ffl  <  Z+X  <  V  >  >  =0RHDU>  1 50THENQ=X  <  V  > 

400  I  FR  <:Z  >  =2 flHIlfl  <  Z-X  C  Y  >  >  =0flMBfi <Z-2*X  <  Y  >  »  - 1  RHIlfl Z-2*X  <  Y  >  + 1  >  >-  1  THENQ=-rt  <  Y  > 

405  I  FU>600flNDfl C  Z  >  =2 RHIlfl  ■;  Z-X  C  V  >  >  *0THENG=-X  <  V  > 

410  I FGO0THEH450 

420  I FY* 1 THEN Y=2 : GOTQ390 

430  IFUC1000THEN350 

440  PRIHT" I  COHCEBE  THE  GAME" -STOP 

450  fl  <  Z+Q  >  =fl  <Z>  •  fl  Z  >  =0 

470  GOSUB740 

480  PRIHT'"S"  '•  INPUT"  FROM"  fit  '■  IHPUT'1TO"  ;  t>t 
490  I  FU$0  "  "THENPRIHT,,3"  ;  U$=" 11 
528  FORU=1TO2‘:Z=0 
530  IFW»1THENC$*R* 

548  IFW=2THENC$«B* 

550  Z=-24*<C:f=!"G9”  >~25* ''.Ot~"E3u  >-*26*0::f=s”C9"  :5  ~  27*i'C^-"R9"  >-30*,'CI:!!:"H8"  >-31*£C:t=' 
FS"  > 

552  IFZO0THEH5S0 

554  Z=-32* < C$=  " II©  "  >  -33* < C$=  " B8 "  > -37* < C t=  ” G7 "  > -38* <C#“"E7"  > -39* < C *=  " C7 "  > -40*  (, C$=  " 
R7"> 

556  IFZO0THEH580 

558  Z=-43*f.C$=  " H6 "  > -44* <.Ct-n F6  "  )-45*'3:^,,Il6”  >-46*<C$='’B6"  >-50*0::t=',G4'  >--»l*--.C$= 
E4”  > 

560  IFZO0THEH580  ^  ^  , 

562  Z=-52* (. C-t- " C4 ”  >-56*<C$=,,H3"  >-57*(0T="F3" >-^8*<C^*"Il3,,  >-59*-<C*:=”B3" 

G2"> 

564  IFZO0THEN580 

566  Z=-64*  <  Ct* 11 E2  "  > -65* (  C$«  "  02”  >  -66*  <  C#  =  fl2 11 )  -69*  <  C#®  " H 1 "  >  -70*  <  Ct  =  "  F 1  > 

568  IFZO0THEN580 

570  Z=~71*<C$=,,m  "  >-72*<Ct-"Bl "  > 

580  IFM=1THEHB=Z 
590  IFH=2THENE=Z 
600  NEXT  =  fl*w"  "  :  "  :  C#="  *’ 

620  fl  <.E  >  =fl  <  B  >  :  fl  «3  >  =0 

658  I F ABS C B-E > >7THEHR < <H+E>/2>=0 : HU=HU+1 
67S  GOSUB740 

680  I PRBS C B-E >>7THEN INPUT "JUMP  RGRIH" ; U$ : IFU*<>" "THEH480 

690  I FHU< 1 2RHDCG< 1 2THEH60 

700  I FHU=1 2THENPR I HT " YOU  H I H " = STOP 

710  I FCO- 1 2THEHPR I HT " I  HIH" =STOP 

740  F0RM=24T072 

750  fl  <  M  >  =-209*  (  fl  <  M  >  =  1  >  -2 1 8*  < fl  <  M  >  =2  >  -32*  <  fl  <  M  >  =0  >  -2 1 5*  ■'  fl  <  M  >  =- 1  >  -75*  <  fl  <  M  >  =-— 2  >  ~3*  ^  fl  < 
M>~9> 

760  NEXT 


90 


770  PR  I HT  "  :  PR  I  NITRE  <  5  )  "  WIE  "  CO "  37  OU  "  HU 

780  PR X NT : PR I NT • PR I NT 

780  F'RI  NTTfiE'<6$ "  i*FlBCIlEFGH" 

780  T=”S  :  FORK-0TO3  :  PRIHTTRB  05  >  ■  FGRJ-GT03 
800  PRINT"H2M"  CHR* <R<72-J-1  -3#K)  •'  ••  '  NEXT  :  T=T+1 
820  PR  X  HT  '*  3"  I.  NT  <  <  J+K  >  /2 )  +T 

830  FOR J=0TO3  :  PR INTTRB<6> rsi"  J  CHRT < R < &5-J- 13*10  > ;  "  *£?” 

850  NEXT :  T-T+l 

860  PR  I  NT ”  3"  I NT  C  < J+K > X2 ) +T 


870  NEXT 

300  PR I NTTRB < 6  >  "  aWBCDEFGH " : PR  I NT 
865  REM  PRINT,,Q,,Q"  2"2"  U"U 
890  FORM=24T072 

900  R^M^-CFKM)  =209 ) -2* £R£M)=218)  +0* <  fi  <  M  )  =32  >+  <  fi  £ M >=215 >  +2# £ R £ M )  =75 ) -  9*  £  FKM)* 
910  NEXT 
920  RETURN 

950  D I  MR £99) :X£ 1 )=-6:X<2)=-7 

960  FQRZa>lT099  : fl£Z)=9:  NEXT 

970  FORZ= 1TG32 : RERDB ' RERDC : fi£B>=C  :  NEXT 

980  BRTR72,  1 , 7 1 , 1 , 70, 1 , 69,  1 , 66,  1 , 65,  1 , 64.-  1 , 63 ,  1,59,  1,58,  1,57,1,56,  1 
990  IIRTR53,  0, 52, 0, 51 , 0, 50, 0, 46, 0, 45, 0, 44, 8, 43,  0 

1000  DRTR40, -1,39, -1,38, -1,37, -1,33, -1,32, “1,31, -1,30, -1,27, -1,26, “1,25, -1,24 
1010  CO«0 : HU-0 
1015  P0KE36879 , 25 
1020  PR I NT "E"  : RETURN 
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JELLY  BEAN 
SPACE  SWARM 

In  Adam  Burbidge's  program,  you  are  the  navigator  on  a  starship.  Suddenly  you 
find  yourself  embroiled  in  an  asteroid  storm.  Only  you  can  Save  The  Ship  From 
Destruction. 

You  are  the  purple  checkerboard  in  the  left  hand  corner  of  the  screen.  As  you'll  see 
when  you  run  it,  the  asteroids  appear  at  different  points.  By  using  your  two  controls 
(4  -  left,  6  -  right)  you  have  to  steer  out  of  the  way  of  the  asteroids  (which  look 
somewhat  like  jellybeans,  hence  the  title).  The  pressure  increases  as  the  game 
continues.  The  number  of  asteroids  increases,  and  their  colour  changes. 

1  REM  JELLYBEAN  SPRCE  SWARM 

2  REM  BY  ADAM  BURBIDGE 

3  REM  STANDARD  MEMORY  ONLY 

4  SC=0:HS=0 

5  PR  I  NT  "T  :REM  CLEAR  SCREEN 

10  FQRJ=1TO20:PRIHT:NEXT 

11  P0KE36S79, 255 
40  P0KE7746, 102 
43  P-38466 

15  P0KE38466,4  ' 

50  FORT  = 1 TO300 : NEXT 
50  A-7746 
65  POKER, 32 

70  GET  fl$:IF  THEN  A=R-l=B=B-i 

71  THEN  R*R+1:B=B+1 

72  POLECAT?). 32 

73  P0KE(R-21) ,32 

74  P0KE(A-22>,32 

75  POKER, 102 

76  POKEB/4 

77  FORT=1TO100 -NEXT 

78  I FPEEK <R+22 ) =8 1  THEN  203 
78  SC^SC+1 

30  H~INT (RND<  1># 506H7680 
39  POKEY+30720,6 
90  POKEY, 81 
93  IF  SC:>40O  THEN  500 

95  IF  30300  THEN  G03UP  4O0 

96  IF  SO20S  THEN  GOSUB  350 
100  PRINT 

110  G0T065 
200  POKE  36877,220 
210  FORL'ISTOO  STEP  -1 
220  POKE  36878, L 
230  FORM“1TO303 
240  NEMTM 
250  NEXTL  r 
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260  POKE  36377.0 

270  P0KE36878.8 

280  PR  I NT "SHIP  DESTROYED '  if?" 

235  PR  I NT" SCORE*"; SC 

286  IF  SOHS  THEN  PR  I  NT  "HI  OH  SCOPE :  SC  '  HS=SC 
23?  IF  SC<HS  THEN  PRINT "HIGH  SCORE*" j HS 


290  FORT" l TO7000 : NEXT 
295  SC=0 
300  GOTO  5 

350  V*INT<PND<I)#506)+7680 
360  POKEY  > 3 1 
370  POKEV+30720,2 
380  RETURN 

400  B* I NT  <  RND(  1  > *506  >  +7680 
410  POKED, SI 
420  POKED+30720,5 
430  RETURN 

500  PRINT" WELL  DONE,  YOU'VE" 

510  PRINT "SUCCESSFULLY  NflVIGAT 

520  P0KE36878, 13 

536  P0KE3S876/135 

540  FOR  0*241  TO  135  STEP- 1 

550  FORM* 1  TO 106 

555  PQKE36S76 , 0 

560  NEXTM 

570  NEXTO 

580  P0KE36S76, 0 

598  POKE3637S,0 

600  END 
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HANGMAN  I 

This  game  needs  two  players,  one  to  enter  a  word  of  her  choice  and  the  other  player 
to  attempt  to  guess  the  word.  The  VIC  draws  a  dash  for  each  letter,  and  then 
changes  this  into  any  letter  which  has  been  guessed  correctly. 

Structure  of  the  program 

Line  50:  Sets  up  arrays  if  needed. 

Lines  100  to  130:  Accepts  the  secret  word,  a  letter  at  a  time. 

Line  135:  Counts  for  the  10guesse$. 

Lines  145  to  170:  Select  colours  at  random  using  the  subroutine  from  9010,  prints  the  letter  if  it 
has  been  guessed,  if  not  prints  a  dash. 

Lines  210  to  260:  Accepts  a  guess  and  compares  it,  letter  for  letter  with  the  secret  word. 

Line  270:  Sends  control  to  winning  message  if  word  is  guessed. 

Line  300  to  330,  then  from  1045:  Losing  message,  reveals  word. 

Lines  1055  to  1100:  Offer  new  game. 

Routine  from  5000:  Adds  some  sound  to  brighten  things  up. 

Routine  from  9000:  Assigns  the  colour  controls  to  string  A$,  and  then  when  subsequently 
called  (as  GOSUB  9010)  changes  the  next  thing  to  be  printed  to  a  random  colour.  This 
subroutine  also  calls  the  sound  subroutine,  then  flashes  (line  9025)  given  the  border  a 
random  colour. 

Suggestions  for  improvement 

•  Get  the  program  to  draw  a  hanged  man,  part  by  part,  as  the  number  of  guesses  is  used  up, 

•  Store  a  number  of  words  in  a  DATA  statement,  so  the  VIC  can  choose  its  own  words. 

•  Note  that  the  random  colour  choice,  the  sound  routine  from  5000  and  the  random  border 
flash  are  all  effective  aids  to  add  to  your  own  programs  to  brighten  them  up. 

10  REM  HANGMAN 
20  PRINT  "IT1  :GOSUB9000 
30  INPUT "HOW  MANY  LETTERS"  ;N 
50  IFN>10  THEN  DIM  B<N),D<N) 

100  F0RA=1T0N:INPUTC* 

120  B<fi)=ASC<C*>D<A>*B<A> 

130  NEXT 

135  FQRJ“  1  TO  1 0 :  PR  I  NT  "T 
140  PRINT:pRINT:PRINT 
145  FORE* 1 TON 
150  GOSUB9010 : PRINTB* ; 

155  IFB(E)=D<E>  THEN  PRINT"-"; 

160  IFB<E>CD<E)THEN  PRINT  CHR$CB(E)>; 

170  NEXTE 
180  PRINT:PRINT 
190  H*0 

200  GOSUB90 1 0 : PR I NTBf ;  "ENTER  GUESS  NO.  "J 
210  INPUTS* 

220  F=ASC(C*> 

230  F0RG=1T0N 

240  IFD(0)=F  THEN  D<G)=0 

250  IFDCG)=0THEN  H=H+1 

260  NEXTG 

270  IFH=NTHEN  1000 

280  NEXTJ 

290  PRINT 

300  GOSUB90 l 0 : PR I NT " SORRY ,  TIME  IS  UP" 

310  PRINT 

320  GOSUB9010 : PRINTBf ; "THE  WORD  HAS  -J 
330  OOTO1045 
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1000  REM  WIN 
1010  PRINT 

1020  GOSUB90 1 0 :  PR  I  NTB$  i  "  VOU  GOT  IT  IN"J 
1040  PRINT 

1045  F0RQ=1T0N  PRINTCHR$<B<Q>);  :NEXT 
1050  PRINT 

1055  GOSUB9010:PRINTB$; " SRNOTHER  GAME"; 
1060  INPUTCI 

1070  IFASC<C*>=ASC<1IV")THEN  RUN 

1080  GOSUB9010'PRINTB$;"SOK,  THANKS  FOR" 

1090  GOSUB9010; PRINTBS; " SPLRYIHG! " 

1095  FORT® 1 TO300 : NEXT 
1097  PRINT 
1100  GOTO1080 
5000  REM  SOUND 

5010  P0KE36878, INT<RND(1 >*8>+8 

5020  FORTMTO100STEP<INT<RND<1  >#8>+l) 

5030  P0KE36876 / 240-T 

5040  P0KE36877,T 

5060  NEXT 

5070  P0KE36876j  0 

5080  POKE36877.0 

5090  RETURN 

8990  END 

9000  A$="i!**Bir 

9010  B$-riID$<fl$,  <INT<RND<1  )#7)+l>,  1) 

9020  GOSUB5000 

9025  P0KE36879, INT<RHDU>#6>+26 
9030  RETURN 


HANGMAN  II 


Here's  another  version  of  HANGMAN.  In  this  one,  the  computer  picks  the  word  for 
you  to  guess.  Change  the  words  in  the  DATA  statements  from  line  370  to  add  your 
own  vocabulary.  The  number  of 'lives' you  have  is  related  to  the  number  of  letters  in 
the  word  to  be  guessed. 

10  REM  HRHGMBN- 1 1 
20  FORG- 1TORHIK  1 >  *22+ 1 
30  RERDA* 

40  NEXT 
50  V=Q 
60  N=LEN<R$> 

80  FQRG=1T0N 

90  E  <  G>  =flSC <  M 1 1>$  <  R$  j»  G  .•  1  >  5 
100 

110  NEXT  PR  I  NT"  7W 

1 28  G~  I  NT  C  H+H/2+ . 3  > : PR I  NT  "  VOU  HOVE  "Q"  CHANCES 11 
130  FOR 3=1 TOO : V=Y+ 1 
140  G0SUB41B 
130  I FH=NTHEN300 

190  PR I NT " nMWW" Q+ 1  - J ’’ CHRNCES  LEFT" 

200  INPUTS* 

210  F=RSC<C:T::> 
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220  F0RG«1T0N 

230  I FB  <  G > «FTHEND < 0 ) =0  =  J=J- 1 
240  NEXT : NEXT 
250  GOSUB410 

260  PRINT :  PRINT"  SB80RRV,  TIME'S  UP !  ■" 

280  GOT 0330 
30O  REM**UIN** 

310  PR  I NTTRB  <  5  >  ”  MSWkE$*_SiL  3Dffl09NBEB !  " 

320  PRIHT‘,Wt’OU  GOT  THE  WORD  IN"V-1 

330  pr i nt" wit  was  mu fi$ 

340  GOTO340 

370  DATA "TERROR"  ,  "POSTURE"  ,  "ELEPHANT” , 11  STATUS"  ,  "BACHELOR'1 ,  "ANSWER" 
380  DATA" TENOR" , "BANANA" > "FIGURE” , "IDIOT", "NARCOTIC" . "PRTHETlr:" 

390  DATA  "  W I ZFIRB  "  ,  "  W I CKEB  " ,  "  U I ZENEB  "  ,  "  EV I L. " 

400  DATA" PARTICLE" , "ATOM" , "ELECTRON" , "START" , "FAMISHED" , "EAGLE" 

410  H=0 

415  PRINT" MWifl" 

417  FORE- 1 TON 

420  I  FB  E  >  =D  <  E  >  THEN  PR  I  NT  "  P4-  "  : 

430  I FB  <  E  >  OD  <  E  >  THENPR I  NT  "C5"  ;  CHR$  <  B<  ElO :  H=H+ 1 
440  NEXT : PRINT 

460  PR  I  NT  :  I FHONTHENPR I  NTH  "  CORRECT  LETTERS" 

480  PRINT 
490  RETURN 


AIMTIHANG 

This  is  HANGMAN  in  reverse.  The  computer  tries  to  guess  the  word  you  have 
chosen. 

When  you  run  the  program,  you'll  be  asked  HOW  LONG  IS  THE  WORD  YOU  HAVE 
CHOSEN?  Enter  the  number  of  letters  in  the  word  -  if  your  word  was  APPLE  you'd 
enter  5  -  and  then  press  RETURN.  The  next  thing  you'll  see  on  the  screen  is  five 
inverse  blue  dashes,  one  for  each  letter  in  the  word,  as  well  as  LIVES  LEFT -10.  This 
is  followed  by  I  GUESS  and  the  letter  the  computer  has  guessed.  If  the  letter  is  one 
which  is  in  the  word,  say  A,  then  you  enter  1,  to  show  it  was  the  first  letter  in  your 
chosen  word.  If  the  letter  is  not  in  your  word,  you  enter  0.  Assuming  the  computer 
guesses  A  as  the  first  letter,  you  enter  1,then  press  RETURN.  Immediately,  the  five 
inverse  blue  dashes  are  reprinted,  but  this  time  the  first  one  has  changed  into  an  A. 
The  words  I  GUESS  A  are  still  there,  to  cater  for  double  letters.  As  there  are  not  two 
A's  in  APPLE,  you  enter  0  and  press  RETURN. 


Here's  how  one  game  I  played  with  the  VIC  progressed.  I  was  thinking  of  the  word 
START: 


T-  5 

LIVES  LEFT  -  10 

- T 

T  -  2 

LIVES  LEFT  -  10 

-  T  —  T 

T  -  0 

LIVES  LEFT  -  10 

-  T  —  T 

E  -  0 

LIVES  LEFT  -  9 

-T--T 

A  -  3 

LIVES  LEFT  -  9 

-TA-T 

A  -  0 

LIVES  LEFT -9 

-TA-T 
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0-0 

LIVES  LEFT -8 

-TA-T 

R  -  4 

LIVES  LEFT -8 

-TART 

R  -  0 

LIVES  LEFT -8 

-TART 

S-  1 

LIVES  LEFT  -  8 

START 

I  WIN  I  WIN  I  WIN 


You'll  find  that  generally,  the  longer  the  word,  the  better  the  chance  the  VIC  has  of 
working  it  out.  ANTIHANG  is  based  on  a  program  written  by  Toni  Baker. 

1 0  REMET ROHR I SHDLFCMUGYPUB JKQXVZ 
20  L=10:Q=45 

30  PRINT" IHWHMHOW  LONG  IS  THE  WORD  YOU  HAVE  CHOSEN?" 

40  INPUTS  PRINT" 3" 

50  D I  MR  <  26  >  C  <  H  >  G  <  N  > 

116  F0RZ=1T026 

120  R  •;  Z  '•  -PEEK  <  4 1 0 1 +Z  > 

130  I FZ<N+ 1 THENO<  Z > “Q 
140  NEXT 

150  2= I NT < RND C 0  >  W3  j  + 1 
160  B*=CHR*CR<Z:>> 

170  F0RJ«ZT025 
180  fKJ>*=  FKJ+1> 

190  NEXT 
200  R=0 

2 1 6  PR  I  NT "  ; 

220  F0R2=1T0N 

230  PR I NTCHE* C G < Z >  > ; 

24©  NEXT: PRINT 

280  PRINT"  EWML  I VES  LEFT  -"L 

290  PR  I  NT  "MM  GUESS  "B$ 

309  IHPUTB1 

310  I FB 1 = ©THEN 350 
320  ni~i 

330  G  <!  B 1  >  =R3C  <  BT ') 

340  GOT 02 00 

35G  F=0 

360  F0RZ-1T0N 

370  I F G  <  Z  > -©THEN F 1 

380  NEXT 

390  I  FF=0THENPR  I  NT  "  M«mis$l7.  W I H  GGT039G 
400  I FR 1  =0THENL:=L“  1 
4 1 ©  R 1 =0  = I FL>0THEN 1 5© 

420  PRiNT"M)ma»iraari»ou  mini  i  " = 6OTO420 


FLIP 

FLIP  is  an  intriguing  game,  which  provides  quite  a  bit  of  mental  stimulation.  On  a 
three  by  three  grid  are  randomly  solid  (filled  in)  and  empty  circles.  By  flipping  them 
(see  the  following  for  an  explantion  of  the  flip),  you  have  to  end  up  with  a  single 
empty  circles.  By  flipping  them  (seethe  following  for  an  explanation  of  the  flip),  you 
have  to  end  up  with  a  single  empty  circle  in  the  middle  position,  and  solid  circles  in 
the  other  eight  positions. 

You  can  only  flip  a  solid  circle.  You  move  by  entering  the  number  of  the  piece  you 
wish  to  flip.  Flipping  a  corner  piece  causes  those  adjoining  it  to  change  to  their 
opposities  (that  is,  a  solid  circle  opens  up,  an  open  circle  solidifies).  Flipping  a 
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middle  circle  on  one  side  changes  the  two  either  side  of  it,  and  flipping  the  middle 
one  changes  the  middle  piece  on  all  four  sides.  The  piece  you  flip  also  changes. 

The  number  of  moves  you  have  taken  so  far  is  displayed.  At  the  end  of  the  game,  the 
program  will  pause  to  tell  you  how  many  moves  it  tookto  solve  it,  and  then  you'll  be 
given  a  new  starting  position. 

5  REM  FLIP 

10  M=0 : Q=209 : X=215 

20  F0RO1TD9 

30  I NT  <  RHIK 1  >  + ,  5  7 

35  fl <  C ) : I FB=0THEWn < C > *X 

40  NEXTC 

50  G03UB130 

60  H=0 

70  F0RC*1TG9 
80  IFfi<C)«XTHEMN-N+l 
90  NEXTC 

1 00  I FM-lFlNIifl  C5> -XTHF.HGOTO270 
110  M*=M+1 

1 1 5  PR  I  NT  "  WOVE  NO .  "  M :  PR  I  NT  :  PR  I  NT 
120  PRINT  "WHICH  ONE  TO  CHANGE" 

125  GETR$: IFfi*“""THEN125 

1 26  N=VRL C R*  >  =  I FNC 1 0RH>9THEH 1 25 
130  OOSIJB310 

140  GOTO30 
170  END 
180  PR I NT "n" 

190  PR I NT: PR I NT  =  PR  I  NT 

200  PRINT"!*"  1"  "2"  "3"  11  CHR*<fi<  1  >  >  "  "CHR*<R<2>>"  "CHR*<R<30 
210  PRINT 

220  PR  I  NT"  If  4"  "5"  ”6"  . . CHR$<R«5)>"  "CHR$<fl<6» 

230  PRINT 

240  PR  I  NT"  SI”  7"  "8"  "9"  ,'CHR$<FK7>  >  "  "CHRf<fi<e>  V  "CHR*a-K9» 

250  PRINT 
260  RETURN 

270  PR I NT" SOLVED  IN"M 
230  FORT-1 TG5003 
230  NEXT 
300  RUN 

310  I FFK H  > -XTHEN  RETURN 

320  IFH*1THENF<  1  >*2  :  F( 2>*4 :  F<3>»5  :  F<4>*1'0 
330  IFN=2THEHFC 1 >=1 = F<2)=3 : F<3>=10 : F<4 J*10 
340  I FN=3THENF < 1 >  *2 : F  C 2  > =5 : F  < 3  J =  F  < 4 ) » 1 0 
350  IFH-4THENFC1>»1 = FC2J=7 : F«3)*10 : F<4>*10 
360  I FN-5THENF <  1  > -2 : F  <  2  > -4 : F  <  3  >  *8 : F  <  4  >  »6 
370  I FN=6THENF  < 1 >=3 : F C 2 > =9  =  F < 3 > « 1 0 : F  < 4  7  =  1 0 
380  IFN-7THENF<  1  7-4 : F<2?«5 : F-t3>=8  =  F<4>*18 
390  IFH=8THENF-:  1 W :  F<2>*9 : F<3>*10  =  F<4)  =  10 
400  IFN-9THEHF<  1  7*8  :  F<2)«5 :  F<37**6 :  F<4!>*10 

419  POKE 3 6 37 3  15 

420  FORG-1TP4 

425  P0KE36879 , 24+RND  < 1 >  *8 

427  PGKE36375 ,  1 30+RNB <  0*1 00 

430  IFRCF<6>  7 *XTHENR< F < 0 > 7 *Q : GOTO430 

440  I  FA  <  F  03  7 >-QTHENfl < F < 0 >  > =X 

450  NEXTG 

455  PQKE36875i 0 = P0KE3S878, 0 
460  fl<N5»X 
470  RETURN 
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BATTLE 

In  this  board  game,  which  is  somewhat  like  checkers  (except  for  the  size  of  the 
board,  and  the  method  of  capture),  you  are  at  the  bottom  of  the  screen  playing  up, 
and  the  computer  is  at  the  top  playing  down. 

The  computer  always  has  first  move.  The  aim,  as  in  checkers,  is  to  capture  your 
opponent's  men,  but  unlike  checkers  you  capture  by  landing  on  a  piece,  rather  than 
by  jumping  over  it.  You  move  responding  to  the  prompt  FROM?  With  the  number 
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across  the  bottom  of  the  square  you  wish  to  move  from,  then  a  comma,  t.h®n^he 
number  along  the  side.  You  do  the  same  forthe  'to'  square.  A  move,  then,  mig  ht  be: 
FROM?  6,  2 

TO?  5, 3  x  u  +< 

The  winner  is  the  first  player  to  capture  six  of  the  opponent  s  pieces. 

BATTLE  was  written  by  Chris  Callender,  of  Cove,  Helensburgh. 

5  REM  BATTLE  -  CHRIS  CALLENDER 
10  DATA 11  23436789$" 

20  data  "  i  i  " 

30  data1 u2mmmm%eu 

40  BRTR"3*$*E  MM3" 

50  DATA  "4^  $  &»£  *4" 

60  DATA" 5  ft  »  %  M  5” 

70  DATA  "  " 

80  data  "  « 

100  BATA  "m  23456789ft" 

105  HS»0 : CS=0 
110  BIMS$U2.<  13> 

120  FORA- 1 TO 10 
130  REABB-t 

140  F0RB»1T01 1  •  St-^A ,  B‘;'“MIDT<B$  /B ,  1  >  '  NEXTB  *-  HE  XT  A 

141  I F I  NT  <  RND  <  1  >  + .  5  >-“9THEN  1 45 

142  S$C5,5>*"*"  :S$>:5,7>=’‘  " 

1 45  POKES 687 3; 25 : PR I NT " 

150  GOSUB1 130 

155  PRINT : PRINT : PRINT 
15?  IFC3=6THENPRIHT"I  WIN  M":  STOP 
160  I NPUT “FROM "  fl i B 
170  I  NPUT  "  TO 11 C  .•  D 

180  I  FADS  (A-C> = 1  AND  AB3 < E  -D  > » 1  THEN220 
190  PRINT" ILLEGAL  HOVE" : GOTO 160 
220  IFS$'X+1  .■  D+l  ?i  = " •  " THENHS-HS+l 
230  SfCA+l^B+1)*”  M  :3$<C+1,D+1>="*" 

240  OO5UB1130 

245  PRINT ; PRINT : PRINT ; PRINT"  " : PRINT" 

247  I FHS=6THENPR I NT " VOU  W IN! ! " : STOP 
250  -GOSUB1000 

260  IFFL=1THEH300 
270  A t~"  "  •-GOSUB1000 
300  S$<E,F>="  " 

305  I FS* <E+0 .•  F+H?  = "  * "  THENCS=CS+ 1 
310  S$<E+CUF+H>*"#" 

320  GOTO150 

1000  M  E®2 ; F“2: 0=0 : H=0 

1010  FL=0 

1020  I FS*  <  E . F  >  O " • " THEN 1 1  m 
1 040  I FS*  <:  E + 1 ,  F+ 1 )  =R$THENG»  t  •  H=*  1 
1 050  I FS* < E+ 1 , F- 1 >  =A*THENG~ 1 • H»~l 
I860  I FS* ( E- 1 i F+ 1 ) -R$THEHG=- 1 • H= 1 
1 870  IFS* <E~1 F- 1  >  =AiTHENG=- 1  •  H=- 1 
1080  I  FGO0ANDHO0THENFL=  1  :  RETURN 
1100  E=E+ 1 :  I  FE>  1 0THEHE=2 :  F=-F+ 1 
1110  I FF> 1 1 THENRETURN 
1120  GOfO10 10 

1130  PRINT"  38"  ;  FORA=  11010:  rr;  i  ht  :  FQRB- 1  TO  1 1 
1140  PR  I  NT"  3"  J  :  IFS*<fi,  B>-"0',THENPRINT,,?r ; 

1145  I  FS$  <  A ,  B  )  ~  "  ft"  T  HENPR.  I  NT  "  ■  "  J 
1150  IFS$<  A..  B)  =  ,,^"THENPRIHT"5|“  ; 

1155  PRINTS*CR.B>; 

1160  NEXT : NEXT 

1170  PRINT ;  PRINT  :  PRINT"  UfflE  : " CS;  “VOU  =  nHS"BS” 

1180  RETURN 
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CAVEMAN 

As  the  Caveman,  you  must  survive  in  the  labyrinth-like  cave  system  for  25 
minutes,  battling  monsters  and  finding  treasure,  while  trying  to  avoid  quicksand, 
and  blundering  into  walls  and  blocked  caves.  You  have  five  arrows,  and  each 
monster  you  kill  gains  you  extra  wealth.  There  are  also  magic  caves,  which  move 
you  randomly  through  the  system. 

This  program  occupies  all  but  70  bytes  of  the  memory  on  the  standard  VIC  so  there 
is  no  room  for  elaboration.  To  make  sure  as  many  features  as  possible  could  be 
squeezed  in,  PRINT  statements  are  terse  to  the  point  of  rudeness. 

You  start  in  cave  55.  You  are  shown  a  view  of  the  system  from  above  at  the 
beginning  of  the  program,  and  from  timeto  time  whileagame  is  underway.  The  key 
to  the  cave's  contents  is:  H  -you  (for  human);  $-gold;  Q-quicksand;  a  diamond 
shape  -  a  magic  cave;  a  grey  square  -  a  blocked  cave;  and  a  full  stop  -  an  empty 
cave. 

You  can  move  up,  down,  right  or  left  one  square  at  a  time  (which  you  do  by  entering 
N  -  north,  S  -  south,  E  -  east  or  W  -  west).  You  can  also  choose  to  shoot  into  an 
adjoining  cave,  which  you  do  by  entering  an  F.  Your  cave  computer  will  warn  you 
when  things  are  nerby  (NEARBY  IS. . .  GOLD  is  one  typical  message),  but  being  a 
Cromagnon  VIC  20BC,  it  tends  to  malfunction  so  you  only  know  of  the  contents  of 
one  of  the  surrounding  caves,  ratherthan  what  is  in  all  of  them.  As  well,  it  does  not 
tell  you  which  of  the  surrounding  caves  it  is  talking  about. 

A  cave  is  emptied  after  you  leave  it,  so  you  cannot  revisit  a  cave  containing  gold 
over  and  over  again  to  enrich  yourself.  If  a  beastiegets  you,  you  fall  into  quicksand, 
or  run  out  of  air,  the  game  ends  with  a  printout  of  the  system. 

When  you  run  the  program,  you'll  seethe  words  CAVE  55  at  the  top  of  the  screen.  If 
your  Cromagnon  VIC  20BC  has  any  message  for  you,  it  will  appear  next,  followed  by 
a  number  which  is  the  minutes  of  air  you  have  left,  and  then  a  prompt 
questionmark.  The  computer  is  waiting  for  your  direction  input  (N,  S,  E  or  W)  or  a 
decision  to  fire  an  arrow  (F).  If  you  try  to  go  where  there  is  no  path,  the  message 
BLOCKED  CAVE  will  appear,  and  you'll  have  to  enter  a  new  direction.  If  you  say  you 
wish  to  fire  an  arrow  when  your  five  are  used  up,  you'll  be  told  you're  out  of  arrows, 
and  asked  for  a  new  instruction.  Good  hunting,  Caveman. 

30  DIMfK  1 00 >  :  H=0 :  Q=0  =  L=0  :  0=0  :  RR=6 
40  P0KE3SS7S, 15 
50  FORB= 1 TQ 1 00 : R  <  B } =46 

60  I FEC 1 2ORB>90OR  1 0* INK B/ 1 0 > -BOR  1 W IHT <B/ 1 0 >  =B- 1  THE HFl <10-1 66 
100  NEXT 
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1 1 0  FORB= 1 T05 : RESTORE : FORD- 1 T05 

115  Z=I NT  < RND (  1  >  #76  >  + 1 2 :  I  FfK  Z > *  1 66 THEN 1 1 5 

120  rerbc:r<z>-c 

130  NEXT ; NEXT 
1 40  DRTR 1 66 , 218,77.81 , 36 

150  F0RB=1TG3  •  RERDF<.B>  ■  NEXT  ■  DRTfi-1 1  ,-10,  --9. -1 ,1,9,10,11 
230  E=55 
240  R(E>=72 

245  PR  I  NT  "  zmtm"  ;  :  GOSUB9040 
£50  Q«INT<RND<1>*7> 

305  IFQ=0RHDEO55THEHGOSUB9040 

310  PRINT"nOT»PKRVE"E 

320  IFO>0THENPR  I  NT  "  "  G ''GOLD " 

330  GOSUE5008 
340  PRXHT,,WWW,,25-H 
350  INPUTS# :U=0 

3 60  IFZ$=" N " RNDR < E- 1 0 > * 1 660RZ#= " S " RNDR < E+ 1 0  >  =  1 660RZ$= "E" RNDR C E+ 1 >  =  1 66THENU«  1 
362  I FZ$ = " k) M RNDR CE-1>-1 660RU- 1 THEN PR I NT " ^BLOCKED  CfiVE ” • FORT-1 TO2000 : NEXT : G0T035 
0 

375  FKE>=46: I FZ#= “ H " THENE-E- 1 0 
380  IFZ#»"S"THENE*E+i8 
390  IFZ#«,,E,,THENE-E+1 
400  IFZ#="N"THEHE*E-1 
405  I FZ#= " F " THENGOSUB6000 
410  I Fft  < E> -2 1 8THEN00SUB 1 600 
420  IFR<E:j=77THEHG03UE2000 
430  I  FFl  C  E  >  =8 1 THENGOSUB3000 
440  I F R  E  >  =36THEHGO8UB4000 
450  H=H+1 ; I FH=25THEHQ-9 = GOTO9000 

460  FORT-RNB <  1  > *40+ 1 3QT0 1 77STEPRND <  1 > *19+2  :  P0KE36875 ,  T  :  FORM- 1  TOT  =  NEXT 
465  POKES 68 7 6 , 280-T : NEXT  =  P0KE36875 , 0  =  P0KE36876 , 0 
470  GOT 0250 

1000  PR  I  NT  "  JSMEJfrIR G I C  !  !  " 

1 020  FORU= 1 TO300 : P0KE36679 , RND < 1 > *24+8  =  P0KE36876 , RND < 1 ># 1 0+240 ■ NEXT : P0KE36879 , 29 
1 025  POKE 3687 6 , 0 • R<E> =46 

1030  E~- 1 NT < RND < 1 > *76+ 1 2 > : IFR<E>*166THEN1030 
1040  RETURN 

2000  PRINT"  SW10N8TER  HERE" 

2018  FORT- 1  TO  100£i :  NEXT 

2O20  M»RND(  1  >  :  IFMC.  2THEHPRIHT"M*PIT  RIJNS  RWfiV  :  RETURN 
2030  PRINT"MWIT-'S  SEEN  VOU. . . " 

2040  FORT=lTO1000 : NEXT 

2050  I FM> . 85THENPRINT "MRND  FLEES" FORT - 1 T0999  = NEXT : RETURN 
2060  PR  I  NT  "MMRND  ERTS  VOU  !  !  "  :  FORT=1TO990 :  NEXT  =  Q=9  •  GOTn<>060 
3000  F  OR.J = 1 T 020  :  PR  I HTTRB  <.  5#  J  >  ;  "MlSHORRGRS.  .  .  " 

3020  F 0 RU=230T O280STEP 1 0  :  P0KE36879, RNDC 1 >*24+8 : P0KE36R76 . 100+U/3 

3825  NEXT : P0KE36379, 29 : NEXT 
3040  PRINT"  anmmVHMQUICKSnND !  !  " 

3045  POKE 3 637 6 , 0 
3050  FORT= 1 TO 1 060  -  NEXT 
3055  0=9 
3860  GOT 03000 

4000  FORJ=iTO20  :  PRI NTTRB<5*J  > ;  "  JWtffcJERLTH  Ml":  poRT=  I  TO  1 0*.T :  NEXT :  NEXT 
40 1 0  K= I NT <RND < 1 ) * 1 Q0 >  +  1 00 

4020  FGRIJ-1TO100 : P0KE36379, RHBC 1 >*24+8 : P0KE36876, RND< 1 >#108+100 : NEXT : P0KE36379, 2 
9 

4825  POKE 3 687 6 , @ 

4O40  PRINT" KD9U30LI!  NORTH  $”K"  !  !  »  :  G=G+K  :  FORT~1TO3000  :  NEXT  :  PETI IRN 
5Q00  V«1 

5005  L=R(E+PCV>> 

5006  I FLO46THEH5020 

5007  I F V<8 T H EN V = V + 1 : GOTO5006 
5010  I F  L=4  6  T  HEN  R  E  T  U  RH 

5020  PR I NT " MWMBWERRBV  IS..." 
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5030  I.  FL~  1 66THENPR I  NT  "  HO  PRTH” 

5040  I  FL=2 1 8THENFR I  NT  "  MFlG  I C  " 

5050  I  FL=77THEHPR  I  NT 11  MONSTER  " 

506O  I  FL=S  l THENFR I  NT 11 QU I CKSRHD  " 

5070  I  FL.-36THENPR  I  NT "  GOLD  " 

50X0  FORT “ 1 TO 3000 : NEXT : RETURN 

6000  FIR -FIR-  1  =  I  FFlR“0THENPR  I  NT  "  NO  ARROWS"  :  RETURN 

60 1 0  PR I H ' TRR " ARROWS " : SS-0 

6820  i  npijt  1 1  Mjgro " ;  s* 

6030  I FST- " N ” RNDR C E- 1 8 ) =77THEHSS= 1 • VT=E- 1 0 
6040  I FS$**"S"RNDR<E+10> «77THENSS«1  ■  VT=E+10 
6050  I F3$= " E " RNDR < E+ 1 ? "77THENSS- 1 = VT=E+ i 
6060  I  FST=  "  W  "  RN DR  <  E- 1 )  =77THENSS*=  1  ;  VT-E- 1 
6070  I FSS“ 0THENPR I NT " NO  LUCK" = GOTO6120 
6080  PRINT "WHIT" 

6090  FORT-  j.  TO 99 9  =  NEXT  =  I FRND  1  > > .  3THEN6  i  1 0 

6100  PRINT "KILLED" = fl<VT?=*46 : G«Q+INT<RND< 1 J#109> : GOTO6120 

6110  PR I NT "WOUNDED" 

6 1 20  FORT-  1 TO3000  :  NEXT  :  RETURN 
9000  IFQ-9THENGOTO9015 
9010  PR I  NT "NO  RIR  LEFT" 

9815  PRINT" MMMMSUR V I VED " H " M I NUTES  FOUND  *"0"OF  GOLD" 

9O40  FKE>=72 
9050  FORJ-1TO100 
9060  PRINTCHR* <R< J> > = 

9070  I F 1 0* I  NT  < J/ 1 0 > - JTHENPR I NT 
9080  NEXT: IFQ=9THENENB 


Appendices 


Error  Messages 

BAD  DATA. .  .String  data  was  received,  but  program  expecting  numeric  data. 

BAD  SUBSCRIPT. .  .Element  of  an  array  outside  of  the  range  specified  in  the  DIM  statement. 

CAN’T  CONTINUE. .  .The  CONT  command  will  not  work,  either  because  the  program  was 
never  RUN,  there  has  been  an  error,  or  a  line  has  been  edited. 

DEVICE  NOT  PRESENT. .  .The  required  I/O  device  was  not  available  for  an  OPEN,  CLOSE, 
CMD,  PRINT#,  INPUT#,  or  GET#. 

DIVISION  BY  ZERO . . .  Division  by  zero  impossible. 

EXTRA  IGNORED.. .Too  many  items  of  data  entered, in  response  to  an  INPUT  statement. 
Only  the  first  few  items  accepted. 

FORMULA  TOO  COMPLEX, .  .String  expression  should  be  split  into  at  least  two  parts. 

ILLEGAL  DIRECT. .  .INPUT  can  only  be  used  within  a  program,  and  not  in  direct  mode. 

ILLEGAL  QUANTITY. .  .Number  used  as  argument  of  function  or  statement  out  of 
allowable  range. 

LOAD. .  .Problem  with  program  on  tape. 

NEXT  WITHOUT  FOR. .  .Either  incorrectly  nesting  loops,  or  having  a  variable  name  in  a 
NEXT  statement  that  doesn’t  correspond  with  one  in  a  FOR  statement. 

OUT  OF  DATA. .  .A  READ  statement  executed  but  no  data  left  unREADin  DATA  statement. 

OUT  OF  MEMORY. .  .No  more  RAM  available.  May  also  occur  when  too  many  FOR  loops 
nested,  or  too  many  GOSUBs  in  effect. 

OVERFLOW. .  .The  result  of  a  computation  is  larger  than  I.70I4I884E  +  38. 

REDIM’D  ARRAY. .  .An  array  may  only  be  DIMensioned  once. 

REDO  FROM  START. .  .Character  data  was  typed  in  during  an  INPUT  statement  when 
numeric  data  was  expected.  Just  re-type  the  entry  so  that  it  is  correct,  and  the  program  will 
continue  by  itself. 

RETURN  WITHOUT  GOSUB ..  .RETURN  statement  encountered,  when  no  GOSUB 
command  issued. 

STRING  TOO  LONG. .  .A  string  can  contain  up  to  255  characters. 
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SYNTAX.., A  statement  is  unrecognizable  by  the  VIC.  A  missing  or  extra  parenthesis, 
misspelled  keywords,  etc. 

TYPE  MISMATCH. .  .This  error  occurs  when  a  number  is  used  in  place  of  a  string,  or  vice- 
versa. 

UNDEF’D  FUNCTION... A  user  defined  function  was  referenced,  but  it  has  never  been 
defined  using  the  DEF  FN  statement. 

UNDEF’D  STATEMENT. .  .An  attempt  was  made  to  GOTO  or  GOSUB  or  RUN  a  line 
number  that  doesn’t  exist. 


BORDER 

SCREEN 

BLK 

WHT 

RED 

CYAN 

PUR 

GRN 

BLU 

YEL 

BLACK 

8 

9 

10 

11 

12 

13 

14 

15 

WHITE 

24 

25 

26 

27 

20 

29 

30 

31 

RED 

40 

41 

42 

43 

44 

45 

46 

47 

CYAN 

56 

57 

58 

59 

60 

61 

62 

63 

PURPLE 

72 

73 

74 

75 

76 

77 

78 

79 

GREEN 

88 

89 

90 

91 

92 

93 

94 

95 

BLUE 

104 

105 

106 

107 

100 

109 

110 

111 

YELLOW 

120 

121 

122 

123 

124 

125 

126 

127 

ORANGE 

136 

137 

138 

139 

140 

141 

142 

143 

LT.  ORANGE 

152 

153 

154 

155 

156 

157 

158 

159 

PINK 

168 

169 

170 

171 

172 

173 

174 

175 

LT.  CYAN 

184 

185 

186 

107 

188 

189 

190 

191 

LT.  PURPLE 

200 

201 

202 

203 

204 

205 

206 

207 

LT.  GREEN 

216 

217 

218 

219 

220 

221 

222 

223 

LT.  BLUE 

232 

233 

234 

235 

236 

237 

238 

239 

LT.  YELLOW 

248 

249 

250 

251 

252 

253 

254 

255 

SPEAKER  COMMANDS: 

WHERE  X  CAN  BE: 

FUNCTION: 

POKE  36878,  X 

Oto  15 

sets  volume 

POKE  36874,  X 

128  to  255 

plays  tone 

POKE  36875,  X 

128  to  255 

plays  tone 

POKE  36876,  X 

128  to  255 

plays  tone 

POKE  36877,  X 

128  to  255 

plays  "noise” 
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COLOR  CODES  MEMORY  MAP 


38400 

38422 

38444 

38466 

38488 

38510 

38532 

38554 

38576 

38598 

38620 

38642 

38664 

38686 

38708 

38730 

38752 

38774 

38796 

38818 

38840 

38862 

38884 


GAME  I/O 


PIN  # 

TYPE 

1 

JOY0 

2 

JOY1 

3 

JOY2 

4 

JOY3 

5 

POT  Y 

6 

LIGHT  PEN 

7 

+  5V 

8 

GND 

9 

POT  X 

106 


107 


Fifty  outstanding  programs  for 
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